bash-2.03$ perl -MO=Deparse badperl.pl
badperl.pl syntax OK
print $foo;
s/dog/cat/gm;
/foo/;
FOO: foreach $_ ($foo) {
    if (/dog/) {
        last FOO;
    }
    if (/cat/) {
        $dog = 'rabbit';
    }
}
die 'wooot?' unless exit 0;