foreach (keys %hashstore){
    $doc=~s#(?<!/)\b($_)\b#$1/$hashstore{$_}#ig;
}