perl -le "$_='1234';@x=/(?=(\d\d))/g;print for @x"