$_=q;
uJts natoehr ePlr ahkcre.;;
$a=q#s<([a-z])([a-z])>@$2$1@ig;;
#;eval($a)=>$b.=qq=$_ =for 
split;print $b,$/