my $path = "C:\\temp\\dest";

$path =~ s/C:\\temp//i;

print "new path: $path\n";

##</code><code>##

my $srcDir = "C:\\temp";
my $path = "C:\\temp\\dest";

$path =~ s/$srcDir//i;

print "new path: $path\n";

##</code><code>##

$path =~ s/$srcDir//i or die;

##</code><code>##

my $srcDir = "C:\\temp";
my $destDir = "C:\\temp2";
my $path = "C:\\temp\\dest";

$path =~ s/$srcDir/$destDir/i or die;

print "new path: $path\n";