$var = "C:\\Dir1\\Dir2\\Dir3\\KeepMe"; $var =~ s/C:\\Dir1\\Dir2\\Dir3//; print "\$var: $var\n";