C:\>perl -le"print $1 while '1234' =~ /(\d)/g" 1 2 3 4 C:\>