while(<IN>)
 {
  if (substr($_,0,12) eq 'DESCRIPTION:') {
     $laenge = length($_);
       print OUT "\"",substr($_,12,$laenge-14),"\";"}
  if (substr($_,0,8) eq 'SUMMARY:') {
      $laenge = length($_);
      print OUT "\"",substr($_,8,$laenge-10),"\";"}
  if (substr($_,0,8) eq 'DTSTART;') {
      print OUT substr($_,27,8),"\n"};

  };