my $begin = $name =~ s/^\*// ? qr// : qr/^/; my $end = $name =~ s/\*$// ? qr // : qr/$/; if ($string =~ /$begin\Q$name\E$end/) { ... }