Select Code to Download

$hist =~ s/\s+/ /gm;

...
   601  perl -MYAPE::Regex::Explain -e 'print 
        YAPE::Regex::Explain->new(qr/(aaaaa(?:(?:(?!aaaaa).)*))/s)->ex
+plain'
   602  addhist

perl -MYAPE::Regex::Explain -e 'print YAPE::Regex::Explain->new(qr/(aa
+aaa(?:(?:(?!aaaaa).)*))/s)->explain'