Select Code to Download

use warnings;
use strict;
...
$a =~ s#l:\\Data\\([0-9]*)\\#D:\\Sites\\$1\\Data\\#i;

print $a;

Unrecognized escape \D passed through at FILENAME line NUMBER.