perl -le'__________=~/^.+(?{print@+})^/'