Select Code to Download

@patterns = qw(cat dog);
$code = 'if (/';
...
}';
eval $code;
die "Error: $@" if ($@);

#!/usr/bin/perl

...
{
        print "Found a DOG and a CAT!\n\n";
}