#!/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' =~ /^$_$/);
}