use warnings;
use strict;
my $a = 'L:\\Data\\5555\\';


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

print $a;