$tags=join "|",map {quotemeta $_} keys %tags; 1 while s/\b($tags)\b/$tags{$1}/g;