@'={$}=>,{}=>0x70,*,,0x6A,$={$$}=>0x68,*,,0x61,};
$..=chr$_ foreach sort keys%{@'};
$_=$.,s<^.*(.)(.)(.)(.)>@$2$4$3$1@.print;


##</code><code>##

C:\>perl -e "$, .= qq[\x00hjap]; print $,;"
 mult
C:\>perl -e "$. .= qq[\x00hjap]; print $. ;"
 hjap
C:\>perl -e "$; .= qq[\x00hjap]; print $; ;"
  hjap


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/