Select Code to Download

#!/usr/bin/perl --
print $_="barfoo bazfoo foofoo barfoo\n";
...
print "$snum $_";
print '#' x 5, "\n";
__END__

use YAPE::Regex::Explain;
print YAPE::Regex::Explain ->new(
    qr/\b((?<!bar)(?!bar)\S{3,})/
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------