#!/usr/bin/perl -w

use strict;

eval'if(!defined&$_){s/(.)/sub$"$1\$"{print$"\'$1\'}/;eval;s/.*(.)..$/$1/}1'
?eval"&$_"?1:$@?$@=~/94/?0:print:1:1for(split//,"Just Another Perl Hacker\n")