Select Code to Download

my ($first) = /^\s*(\w+)/ or next;
if (index $first, "hello") {
    ... whatever ...
}

my %prefixes = calc_all_unique_prefixes;
if (/my ($first) = /^\s*(\w+)/) {
...
        print "What?\n";
    }
}