Old Perl Code

[...]
return undef unless defined($findit);

return 1;
}

Some strange new feature for Perl

http://perl.org/six

Common Lisp gives Perl 6 wings

See Perl 6 to machine code via Common Lisp and sbcl:

KindaPerl6 is a self-compiling compiler written in a subset of Perl 6 with support for multiple emitter backends. [...] now the Common Lisp backend is getting up to speed.