ANTICHAT - Показать сообщение отдельно

Все заделал!
Сделал все же через xml - скриптом на perl. Выгрузил все, что нужно из старой админки в xml. Конвертнул в текстовый файл с разделителем табуляция, убрал лишние поля и скормил скрипту ниже.
Предварительно конвертнул из cp1251 в utf8.
Потом влил в новую админку.
Все вышло. Жаль не все поля удалось влить. Но реквизиты все перенеслись. Вот простенький скрипт, может кому понадобиться.

Код:

Код:

#!/usr/bin/perl 
open(DAT,"from_old_utml.txt"); 
open(DB,">>to_new_utm.xml"); 
print DB "\n"; 
print DB "\n"; 
while () { 
($login, $full_name, $passport, $home_tel, $mod_tel, $jur_address, $tax_number, $kpp_number, $work_tel, $act_address) = split (/\t/, $_); 
print DB "\n"; 
print DB "\n"; 
print DB "\n"; 
print DB "\n"; 
print DB "0\n"; 
print DB "\n"; 
print DB "\n"; 
print DB "$login\n"; 
print DB "$full_name\n"; 
print DB "$passport\n"; 
print DB "$home_tel\n"; 
print DB "$mod_tel\n"; 
print DB "$jur_address\n"; 
print DB "$tax_number\n"; 
print DB "$kpp_number\n"; 
print DB "$work_tel\n"; 
print DB "$act_address\n"; 
print DB "0\n"; 
print DB "\n"; 
print DB "\n"; 
} 
print DB ""; 
close DAT; 
close DB;

Строчку потом поправить надо
на В окончательном файле.