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