Select Code to Download

use PPR;
my $perl_code = <<'END';
...
if ( $perl_code =~ m{ \A (?&PerlDocument) \Z $PPR::GRAMMAR }x )
     { print "It looks like it could parse as Perl\n" }
else { print "It doesn't look like Perl\n" }