Select Code to Download

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

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