while ( @file ) {
    s#l:\\Data\\([0-9]*)\\#D:\\Sites\\$1\\Data\\#i;
    print;
  }

##</code><code>##

Use of uninitialized value in print at foo.pl line 44.
Use of uninitialized value in substitution (s///) at foo.pl line 43.
Use of uninitialized value in substitution (s///) at foo.pl line 43.