start_of_block { some_data ; more_data ; even_more ; }; start_of_block { data ; }; #### $/ = "" ; while (<>) { s/\nstart_of_block.*?};//s print ; }