#!/usr/local/bin/perl -i.bak 
while($line = <>) {
chomp($line);
print "$line"
}
