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

# ...

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