open(F1,"< $price_txt_dir/$data{txt_name}") || mydie('Can`t open in price file - price.txt');
while (<F1>) {
s/[\r\n]//g;
my @tmp = split("\t",$_,9);
for (my $i=0;$i<scalar(@tmp);$i++) {
$tmp[$i] =~ s/^\s+//g;
$tmp[$i] =~ s/\s+$//g;
}
#далее уже работа с базой