AA 12 BB 34 CC 56 #### open( FH, $f ) or die; while( my $str = ){ $str =~ s/\r\n//g; print ">$str<\n"; } close(FH)