Select Code to Download

my $data = join('',<DATA>);
...

my @matches = $data =~ /($function_header $balenced_brackets)/gx;
print join("\n\n",@matches);