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