if ( m/:Calendar(?=\/)/ or
     m/:Contacts(?=\/)/ or
     m/(?<=\"\/)Users/ or
     m/.+@.+\"\s=/ or
     m/_A_domain_D_com/ ) {
          foreach my $key ( sort keys %replacements ) {
                  s/\Q$key\E/$replacements{$key}/g;
                  }
     }