Select Code to Download

my @nasties = (
    'foo and exit',
...
for my $layer(@nasties) {
    print $layer =~ m/^([\w:]+)$/ ? "OK $layer\n" : "ERR $layer\n";
}