$_ = "a"; s/(.(.*))/($2ne'')?$2:$1/e; print