This is perl, v5.8.1-RC3 built for darwin-thread-multi-2level
The problem seems to be that \&( is not evaluating to the CODE(...) address that the OP expects. The OP is looking for an address matching /0x...[02468][def][4567def][ace]/ and (in my case) the coderef address is 0x8012c4.
Update: Version 2 gives the same error here. No "japh" message is printed. Is the OP running Perl on Microsoft Windows?