Select Code to Download

$find="C:\\Dir1\\Dir2\\Dir3";
...
$var =~ s/$find/$replace/eeg;
print "\$var: $var\n";