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