grep -i тульская Kody_DEF-9kh.csv | perl -lne 'next unless/^\d/;@z=split/\;/;print $z[0].$_ for "$z[1]".."$z[2]"' > tel_numbers.txt