print "open $ARGV[0]\n"; open (IN,$ARGV[0]); while(){ s/\n/xxxx/g; s/\r/xxxx/g; s/>/\\n/g; print "$_\n"; } close(IN);