Select Code to Download

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);
}

print "Match\n" if('test@you.com' =~ m/^\w*?\@[a-z0-9.]*?\.(?-i:[a-z])
+{2,4}\z/i);