Select Code to Download

word => 'id'

word => [qw{id1 id2}]

...
$words2ids{fc $text} = $token;
...
s/$re/++$found{fc $1}, "$1 $words2ids{fc $1}"/eg;
...

...
push @{$words2ids{fc $text}}, $token;
...
s/$re/++$found{fc $1}, "$1 @{$words2ids{fc $1}}"/eg;
...