use strict;

my @tests = (
    "([0d-w9]ef+?)q"
);
my $string = $ARGV[0];

for my $line (@tests) {
    if ($string =~ /$line/) {
        print "Muster $line erkannt\n";
    }
}