$hoge = join "|", map{ quotemeta } keys %fuga;
の方が見栄えは良いな。
いや、>>506の方が多分効率良いけど。