Help for this page
#!/usr/bin/perl -l ... if (($aa =~ m/$regex/) && !($bb =~ m/$regex/)) { print "Woohoo"; }