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