push @{$positions{lc($1)}}, $-[1]
    while $string =~ /([A-Za-z']+)/g;