Select Code to Download

# warning win32 doublequotes oneliner                 
perl -e " print $1 if $ARGV[0]=~/(AAA)[^AX].+XXX/"    ABBBAAACCCXXX
AAA

perl -MYAPE::Regex::Explain -e " print YAPE::Regex::Explain->new(qr/(A
+AA)[^AX].+XXX/)->explain(); "
The regular expression:
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------