#!/usr/bin/perl

while (<>) {
  # start
  if (/^BEGIN:VEVENT/) {
    do {
      $line = <> ;
      if ($line =~ /SUMMARY:Peski/) { $err = 1 ; last ; }
      $seg .= $line ;
    } until ($line =~ /^END:VEVENT/) || $err ;
    if (! $err) { $output .= $seg ; }
    next ;
  }
  $seg = "" ;
  $output .= $_ ;
}

print $output