{
  local $/ = undef ;

  open TEST,'test' or die "Denied: $!\n" ;
  my $string = <TEST> ;
  close TEST ;

  $string =~ s/\n\nstart_of_block.*?};//s ;

  print $string ;
}