/g makes the difference

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

C:\>
[download]