use GMS; #Own package, which in turn uses CGI, it was in there that I was comenting out different lines to see if I could find the error

while(chomp(my $temp = <>)){
   print "Match\n" if($temp =~ m/^\w*?\@[a-z0-9.]*?\.(?-i:[a-z]){2,4}\z/i);
}