while(<ORIGINAL>) {
chop $_;
print NEWFILE $_;
}