Select Code to Download

use strict;
use warnings;
...
        /^\s*$test\s*$/ and $interesting{$test}->();
    }
}

$ perl regexes.pl abc uep cmc aaa foo bar
got 'abc'!
...
got 'cmc'!
got 'aaa'!