Select Code to Download

use strict;
use warnings;
...
  print qq("$1") . "\n";
}

C:\>perl -MYAPE::Regex::Explain -e "print YAPE::Regex::Explain->new(qr
+/^Posted by (.*?) on /)->explain()"
...
)                        end of grouping
----------------------------------------------------------------------