Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E '
    my $buf = q{aXa};
...
3
${^MATCH}:
a