$ perl -MPPIx::Regexp -MData::Dump -le " $r=PPIx::Regexp->new(q{s{ \d+    \w+ }{}gx}); dd( $r ); print $r->content; "
bless({
  children => [
    bless({ content => "s" }, "PPIx::Regexp::Token::Structure"),
    bless({
      children => [
        bless({ content => "\\d" }, "PPIx::Regexp::Token::CharClass::Simple"),
        bless({ content => "+" }, "PPIx::Regexp::Token::Quantifier"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
        bless({ content => "\\w" }, "PPIx::Regexp::Token::CharClass::Simple"),
        bless({ content => "+" }, "PPIx::Regexp::Token::Quantifier"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
      ],
      finish => [bless({ content => "}" }, "PPIx::Regexp::Token::Delimiter")],
      max_capture_number => 0,
      start => [
        bless({ content => "{" }, "PPIx::Regexp::Token::Delimiter"),
        bless({ content => " ", perl_version_introduced => "5.000" }, "PPIx::Regexp::Token::Whitespace"),
      ],
      type => [],
    }, "PPIx::Regexp::Structure::Regexp"),
    bless({
      children => [],
      finish   => [bless({ content => "}" }, "PPIx::Regexp::Token::Delimiter")],
      start    => [bless({ content => "{" }, "PPIx::Regexp::Token::Delimiter")],
      type     => [],
    }, "PPIx::Regexp::Structure::Replacement"),
    bless({ content => "gx", modifiers => { g => 1, x => 1 } }, "PPIx::Regexp::Token::Modifier"),
  ],
  effective_modifiers => { g => 1, x => 1 },
  failures => 0,
  source => "s{ \\d+    \\w+ }{}gx",
}, "PPIx::Regexp")

s{ \d+    \w+ }{}gx