Perl = system

Lot of comparisons to remove INT, may have been more efficient to removed it beforehand.