DB<17> $_='Name       Company                Work                       Home                       Work'

  DB<18> push @col,$1 while /(\w+\s*)/g

  DB<19> x @col
0  'Name       '
1  'Company                '
2  'Work                       '
3  'Home                       '
4  'Work'
  DB<20> print map {":".length $_} @col
:11:23:27:27:4