Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
} else {
    say "No match.";
}

$line =~ /^>(\w+)/;   # capture as many consecutive \w characters as p
+ossible following >
$line =~ /^>(\S+)/;  # capture as many consecutive non-whitespace char
+s as possible following >