~ 6> cat >wildcard.txt
Test!~2323*.*
~ 7> perl -le 'print while(<>);' wildcard.txt 
Test!~2323*.*

T*s*

#!/usr/bin/perl

use strict;
use warnings;

my @re;

open(my $fh,"<$ARGV[0]") or die $!;
while(<$fh>){
  chomp;
  s/\*/.*/g;
  push(@re,$_);
}
close $fh;

for(@re){
  print "yes" if('Test' =~ /^$_$/);
}

chop $message;

my $matching = "false";

my $datei = "aop.cfg";

if(-e $datei)
{
    open(INPUTFILE,$datei);
    @fileContent=<INPUTFILE>;
    close(INPUTFILE);
    foreach my $aktuelleZeile (@fileContent) { 
        if($aktuelleZeile =~ /"(.*)","(.*)"/) {
            print "$1 - $2 : $message - $hostmask\n";
            if($1 eq $message && $2 eq $hostmask>) {
               
 $matching = "true";
                  
  print "Match!";        
                    } else {
                  
  if($matching ne "true") {
                      
  $matching = "false";
                  
  }
               }

        } 
    }

} 
else 
{     
  print "\n*** Error cant Read file $datei!\n"; 
}

aop.cfg:
"test","cooldie!~cooldie@blablabla"

#!/usr/bin/perl

use strict;        # sollte in keinem Programm fehlen
use warnings;

my @re;

open(my $fh,"<$ARGV[0]") or die $!;
while(<$fh>){
 chomp;            # entferne Zeilenumbruch (bzw. $/)
 s/\*/.*/g;          # s - ersetze; 
                 # \*  - den Stern (muss escaped werden, da Sonderzeichen in 
RegEx
                 # durch .*
                 # g - alle (global)
 push(@re,$_);
}
close $fh;

for(@re){
  # ^ - beginn des Strings
  # $_ das aktuelle Element aus @re
  # $ Ende des Strings
 print "yes" if('Test' =~ /^$_$/);
}