package _;use threads;(caller(//)) [//+//+//]=~/$_/?"": push@_,async{ print _($_)}while$_=each%_::;;$_-> join for @_; sub _ {print chr eval $_[0]unless $_[0] =~/_+/ ; return} sub Just {0x4a} sub Another {0x61} sub Perl {0x68} sub Hacker {0x70}