Help for this page

Select Code to Download

Select or download this

@results = $fast->();
# or
@results = &$fast;

Select or download this

$re = qr/(\w+)\s+(\w+)/;

...
while (<>) {
  push @res, /$re/;
}