cat extnames_indous_all.txt | perl -e '$val=3450; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq > t2
cat extnames_indous_all.txt | perl -e '$val=4100; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=4700; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=5450; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=5950; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=6800; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=7300; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
cat extnames_indous_all.txt | perl -e '$val=8100; while(<>){chomp; s/^\s+//; @a=split; $a[1]=~s/(.......).*$/$1/; print $a[1]."_".sprintf("%4d\n",$val) if (abs($a[3]-$val)<150.0);}' | sort | uniq >> t2
