my %replace_hash=(foo=>'bar',baz=>'fnord');
my $regex=compile_regex(keys %replace_hash);
s/\b($regex)\b/$replace_hash{$1}/g;