use strict;
use warnings;
use 5.014;

my %interesting;
for (qw/ abc cmc uep a{3}/) {
    $interesting{$_} = sub { say "got '$_'!"};
}


# process data and apply tests
for (@ARGV) {
    foreach my $test (keys %interesting) {
        /^\s*$test\s*$/ and $interesting{$test}->();
    }
}
[download]

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