my $pattern = join "|", map quotemeta, keys %key:

  sub decode {
      $$message->{body} =~ s/($pattern)/$key{$1}/og;
  }

##</code><code>##

  use Regex::PreSuf;
  my $pattern = presuf(keys %key);

##</code><code>##

  [\^\~\@\!\#\$\%\&\(\)\*\+\-0123456789\\\=\|]