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