{@}=split(//,"Just an odd man")}@)#={};@_
=split(//,':: "{.;;}}$');$.='print ${$
=~tr!zligeyt!\blepaeh!}.$

.


"."\b\b\t\b\b".${for($i=1
$i<(11^1)
$i++){pop(@
)}print @
}.${eval$
}';while($.=~/
/){$;=shift(@))
;$.=~s/
/$;/
}
$:=" girl zac zzz uzteckyr"
$$=""
split//,$.;while(<@_[@[..@}-@}/2]>)
{$$.=$_}
$$.=#"perl"$.=
"\"{\b{$*}\b}\b\bn@\bo^\bthb\beer\b\br\"
"eval$.;