#!/usr/bin/perl
use strict;
use warnings;

my @names = qw/webmaster *webmaster webmaster*/;

for my $string (qw/Alfred webmaster wwwebmaster webmasters/) {
  for (0..$#names) {
    my $name = $names[$_];

    print "$name matcht auf $string ";
    my $begin = $name =~ s/^\*// ? qr// : qr/^/;
    my $end = $name =~ s/\*$// ? qr// : qr/$/;
    if ($string =~ /$begin\Q$name\E$end/) {
      print "sehr gut.";
    } else {
      print "nicht.";
    }
    print "\n";
  }
}