perl -wle '$_ = '10'; s/(.(.*))/$2or$1/e; print'
10