#!/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);