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

##</code><code>##

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

# ...

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