DB<1> $x = qr/(\d\s+foo)/;

  DB<2> $y = 'alpha beta 1 foo gamma delta 2 foo epsilon omega';

  DB<3> @z = $y =~ /$x[^\r\n]*$x/;

  DB<4> x @z
0  '1 foo'
1  '2 foo'
  DB<5>