perl -ne "/begin expr/ .. /end expr/ and print" infile > outfile
[download]

It should be pointed out that this will extract as many occurrences of a matching block as there are in the file, not just the first, not just the largest.