Select Code to Download

for($filedata =~ /#begin\d*?\n(.*?)#end\d*?\n/gs) {
    push @arrBlocks, [split "\n"];
}