num 123 num 2345 num 84210 num 1357
2345 1357
[ 1] foreach $i (m/(?<!\d)\d{4}(?!\d)/g); [ 2] { print "$i "; } [ 3] print "\n";