This is the code I was using to test it:

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);
}
[download]

I would run it and enter an assortment of addresses, to see if they could work. Usually, just test@you.com while I was trying to locate the bug. Interestingly enough, it works fine when I use

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

Though I can't imagine why it would operate differently just because of 'use CGI qw(:cgi);'...

---

My code doesn't have bugs, it just develops random features.

Flame ~ Lead Programmer: GMS