$path = "\path1\path2\path3\file.ext"; $path =~ s/(.*)\\(.*)/$2/gi; print "$path";