#!/usr/local/bin/perli

my $old = shift @ARGV;
my $new = shift @ARGV;
	open IN, $old or die "Can't read source file $old: $!\n";
	open OUT, "> $new" or die "Can't write to file $new: $!\n";

        my @array= <IN>;
	
	foreach (@array){$a=substr($_,0,-3);
		print OUT "$a\n";
	};