Select Code to Download

use warnings;

...
if ( $var =~ /$main::look{mom}/ ) {
    print "Guess what!  It matched!\n";
}

use strict;
use warnings;
...
}
__OUTPUT__
Ewwwww!