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