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