# открываем 1-й файл
open FILE, "<", "1";
# читаем
while (<FILE>) {
   # вырезаем Xn и Yn
   m/id=([^&]+)&s=(.+)$/;
   # помещаем Xn в массив @x
   push @x => $1;
   # помещаем Yn в массив @y
   push @y => $2;
}
# закрываем 1-й файл
close FILE;
# открываем 2-й файл
open FILE, "<", "2";
# "опускаем" флаг
# поднятый флаг означает, что мы обрабатываем очередной блок ссылок
$flag = 0;
# читаем
while (<FILE>) {
   # если в строке есть ссылки
   if (m/id=[^&]+&s=[^& ]+ /) {
      # подымаем флаг
      $flag = 1;
      # заменяем значение в ссылке
      s/id=[^&]+&s=[^& ]+ /id=$x[0]&s=$y[0] /g;
   } else {
      # если флаг был поднят, значит мы только что окончили обработку блока ссылок.
      if ($flag == 1) {
         # убираем отработанные значения из @x и @y
         shift @x;
         shift @y;
      }
      # опускаем флаг
      $flag = 0;
   }
   # вывод обработанной строки на печать
   print $_;
}
# закрываем 2-й файл
close FILE;