my $regex = quotemeta $mask;
$regex =~ s/\\\*(\w*)\\\*/$special{$1}/g;
$regex = '\\A'. $regex .'\\z';