#!/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 $_;
}