Select Code to Download

foreach my $line (<FILE>) {
    if ($line =~ /PatternBegin/ .. /PatternEnd/) {
        $str .= $line;
    }
}

foreach (<FILE>) {
    if (/PatternBegin/ .. /PatternEnd/) {
        $str .= $_;
    }
}