s/(.)(.)(.)/$2$1$3
$1$3$2/gfor($_=<>)x(2-($-=2-<>));print$_=~<>?FAILURE:SUCCESS