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