Inspired by Re: interpolation in replacement part, not very obscure though.

@a=split//,q'#:.%"&/})]*-!=?\'+qq';$-+=2*++$b;$r=join'qq',q''
,@a[0..$#a-$-++],q"|$1|".join'',reverse@a[0..@a-$---];$.=v101
x@a;eval"\$_='Just another Perl hacker,';s/(.)/\$r/g$.;print"
[download]