http://qs1969.pair.com?node_id=33246

Yeah, right.
use overload;BEGIN{overload::constant "q",sub{$_[1]=~s/\^(.)/qq!"\\c$1"!/eeg,return$_[1]}} print "Just Another Python^H^H^H^H^Herl Hacker\n";


$_="goto+F.print+chop;\n=yhpaj";F1:eval