Help for this page

Select Code to Download


  1. or download this
    #    my $regstr = join '', 
#    # The regular expression (PPI::Token::Regexp::Substitute):
#    # 
...
\s+ # spaces
\w+ # words 
}{}gx
  2. or download this
    $ perl -MPPIx::Regexp -MData::Dump -le " $r=PPIx::Regexp->new(q{s{ \d+
+    \w+ }{}gx}); dd( $r ); print $r->content; "
bless({
...
}, "PPIx::Regexp")

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