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

  DB<5> print $1 if /\b(\s*([a-zA-Z ]+)\s((-?[0-9]){1,2})\b)/g;
foobar 42
  DB<6> $_ = 'foobar 666';

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

  DB<8>