#!/usr/bin/env perl
use Modern::Perl;

my $line = '>foo# bar';
if( $line =~ /^>(\w+)\s(.+)$/ ){
    say "Found word $1";
} else {
    say "No match.";
}