Help for this page

Select Code to Download


  1. or download this
    $ perl -Mre=debug -le " q/yabba dabba doo/ =~ /y(.)(.)\2\1/ "
Compiling REx "y(.)(.)\2\1"
...
   5 <yabba> < dabba doo>    | 17:END(0)
Match successful!
Freeing REx: "y(.)(.)\2\1"
  2. or download this
    use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------