($file2 = $file1) =~ s/\Q$dir1/$dir2/;