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

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

print "new path: $path\n";