Help for this page

Select Code to Download

Select or download this

  DB<1> print map {$1 if /oo/} qw /foo bar oof rab foo/

  DB<2> print map {$1 if /(oo)/} qw /foo bar oof rab foo/
...

  DB<10> p $d

Select or download this

$ time perl -e '($d)  = map {$1 if /(000)/} 1..999;'

real    0m0.070s
...
real    0m18.116s
user    0m17.674s
sys     0m0.436s