perl -le 'print length 1 x pop() x pop' 10 15