When you do a regex without the $var =~ in front it assumes $_ =~ /

Here is a little script that goes threw it some. Mostly for my own experimentation but i figured i would share.

$_ = "hello";

print "Hello\n" if /^h/ && /o$/;
print "Hello agian\n" if $_ =~ /^h/ && /o$/;
print "Hello a third time\n" if $_ =~ /^h/ && $_ =~ /o$/;

$_ = "aeiou";
print "it has all the vowels\n" if (/a/i && /e/i && /i/i && /o/i && /u
+/i);
print "it still has all the vowels\n" if ($_ =~ /a/i && $_ =~ /e/i && 
+$_ =~ /i/i && $_ =~ /o/i &&  $_ =~ /u/i);
[download]

Notice the progression and how all those different regex uses are realy the same. You should then see how yours fits in to the problem.