Select Code to Download

#!/usr/bin/perl --
use strict;
use warnings;
...
    next
end
';

my $FROM_CONFIG = qr{
(?<config>
...

dd( \@stack );
__END__

__END__
__END__
...
    },
  },
]