while ($firstrow =~ /(<\w>)/g) {
    push @columnpos, pos($firstrow) - length($1);
}