JAPH-20010117: undef$";print(s#(..)(.)(.)#$2$1$3#g&&$_)if$_=join($",map((y(a-mn-zA-MN-Z)(n-za-mN-ZA-M)?$_:chr(0x20)),split($",(join($",@{['Na b','urge','hfWg','xrpe','Cr e',' Uyn']}[2,0,1,4,5,3])))));