Select Code to Download

"user.name@domain.com:Calendar/personal" = <*I0>;
};
...
FreeBusyExclusions = {
      "user.name@domain.com:Calendar/personal" = <*I0>;
      "user@domain.com:Calendar/BCA-513DD600-1B-6967B200" = <*I1>;

#!/usr/bin/perl
use strict;
...
    }
print $_;
}

"uname:Calendar/personal" = <*I0>;
};
...
FreeBusyExclusions = {
     "uname:Calendar/personal" = <*I0>;
     "user:Calendar/BCA-513DD600-1B-6967B200" = <*I1>;

       foreach my $key ( sort keys %replacements ) {
            s/\b$key\b/$replacements{$key}/g;
            print "$key $replacements{$key}\n";
            }