http://qs1969.pair.com?node_id=1220592


in reply to Match multiple number

Another similar solution:

$ perl -e ' for (0..1000) { my $n = int(rand(10000)); print $n, "\n" if $n =~ /\d{0,}[05]\z/ } ' __sample_output__ 7495 8120 8340 9540 7370 4455 310 7540 35 7085 7235 5355 9190 6790 1360 820 1900 1945 1630 9895