Select Code to Download

perl -pe '$skip=0 if /^end$/; next if $skip; $skip=1 if /^begin$/' dat
+a.txt

#!/usr/bin/perl

...
a
begin
1