push @columnpos, pos $firstrow while $firstrow =~ m{(?=<\w>)}g;