perl -nie "print unless /begin/../end/" file1 file2