$a=join"",0..9;$a=~s/(.{$_})(.)/$2$1/,print$2for<>=~/./g