$/=0;s/(.)(.*)
*/$2$1
/g,//,print$_="$'$&
"for(<>)x48