while(<IN>) {
	my $line = $_;
	my $number = () = $line =~ /\,/gi;
		$line =~ substr( $line, -2, 2, '' ) if ($number > 79);
	print OUT "$line";
	}	
  close OUT;
  close IN;
}