Select Code to Download

    while ($text =~ s/
           ^(.*?)               # $1 - start of line up to directive
...
            $end            # end of tag
            )
           //sx) {

#!/usr/bin/perl

...
$template->process(\$text, {});

print "Processed\n";