#!/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;