"user.name@domain.com:Calendar/personal" = <*I0>;
};

SubscribedFolders = (
    "user@domain.com:Calendar/BCA-513DD600-1B-6967B200"
);
FoldersOrder = (
     personal,
     "user_A_domain_D_com_BCA-513DD600-1B-6967B200",
     "7D03-5682B480-975-5FFE8000",
     "7D03-5682B480-977-5FFE8000"
);
FreeBusyExclusions = {
      "user.name@domain.com:Calendar/personal" = <*I0>;
      "user@domain.com:Calendar/BCA-513DD600-1B-6967B200" = <*I1>;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

my %replacements = (
        'user.name@domain.com' => 'uname',
        'user@domain.com' => 'user',
        # this is a new replacement
        '_A_domain_D_com_' => '_',
);

open( my $readFile, '<', "sampleFile" );

while ( <$readFile> ) {
# if contains :Calendar and is suffixed with / 
# or :Contacts with same suffix or Users prefixed 
# with / or is an email-address followed by " =
   
if ( m/:Calendar(?=\/)/ or
     m/:Contacts(?=\/)/ or
     m/(?<=\"\/)Users/ or
     m/.+@.+\"\s=/ or
     m/_A_albertbauer_D_com/ ) {
     # then replace every occurrence as in list
       foreach my $key ( sort keys %replacements ) {
            s/\b$key\b/$replacements{$key}/g;
            }
    }
print $_;
}

##</code><code>##

"uname:Calendar/personal" = <*I0>;
};

SubscribedFolders = (
    "user@domain.com:Calendar/BCA-513DD600-1B-6967B200"
    );
    FoldersOrder = (
    personal,
    "user_A_domain_D_com_BCA-513DD600-1B-6967B200",
    "7D03-5682B480-975-5FFE8000",
    "7D03-5682B480-977-5FFE8000"
    );
FreeBusyExclusions = {
     "uname:Calendar/personal" = <*I0>;
     "user:Calendar/BCA-513DD600-1B-6967B200" = <*I1>;

##</code><code>##

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