Select Code to Download

  DB<4> $_ = 'foobar 42';

...
  DB<7>  print $1 if /\b(\s*([a-zA-Z ]+)\s((-?[0-9]){1,2})\b)/g;

  DB<8>