use English; local $INPUT_RECORD_SEPARATOR = '>'; while (my $buf = <$fh>) { # remove '>' & skip empty records: chomp($buf); next if ($buf =~ m/^\s*?$/); my $fasta = ">$buf\n"; };