BEGIN:VCALENDAR^M
VERSION:2.0^M
PRODID:-//Apple Inc.//iCal 3.0//EN^M
CALSCALE:GREGORIAN^M
BEGIN:VEVENT^M
SEQUENCE:3^M
DESCRIPTION:***Private-from-iPhone***^M
UID:5749C919-23FB-4C97-BE1A-37DAB7921BE0^M
TRANSP:OPAQUE^M
DTSTART;TZID=US/Pacific:20090304T170000^M
DTSTAMP:20090304T224810Z^M
SUMMARY:test event^M
CREATED:20090304T224749Z^M
DTEND;TZID=US/Pacific:20090304T180000^M
END:VEVENT^M
END:VCALENDAR^M

##</code><code>##

BEGIN:VCALENDAR^M
VERSION:2.0^M
PRODID:-//Apple Inc.//iCal 3.0//EN^M
CALSCALE:GREGORIAN^M
BEGIN:VEVENT^M
SEQUENCE:3^M
DESCRIPTION:***Private-from-iPhone***^M
UID:5749C919-23FB-4C97-BE1A-37DAB7921BE0^M
TRANSP:OPAQUE^M
DTSTART;TZID=US/Pacific:20090304T170000^M
DTSTAMP:20090304T225151Z^M
SUMMARY:test event^M
X-CALENDARSERVER-ACCESS:CONFIDENTIAL^M
CREATED:20090304T224749Z^M
DTEND;TZID=US/Pacific:20090304T180000^M
END:VEVENT^M
END:VCALENDAR^M

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

my ($debug);
$debug = 0;
$debug = 1;

while (<>) {
  chomp;
  if (/SUMMARY:/) {
    s/$/\nX-CALENDARSERVER-ACCESS:CONFIDENTIAL^M/;
  }
  print "$_\n";
}

print STDERR " ( Lines read: $. )\n";

exit(0);