while(<>) { print , next if s/^>/\n>/; chop; tr/ \t\r//d; print ; } print ; print "\n\n";