my $regex = qr/>([\S]*)\s*.*\s([A-Za-z\s]+)/;
...
while( $fasta_sequence =~ m/$regex/igm ) {

##</code><code>##

    $sequence =~ tr/[\r|\n]//d; # delete all line breaks