#!/usr/bin/env perl

use strict;
use warnings;

my $search = 'C:\Dir1\Dir2\Dir3';
my $replace = '';

my $var = 'C:\Dir1\Dir2\Dir3\KeepMe';

$var =~ s/\Q$search/$replace/;

print "\$var[$var]\n";