sub decode {
    my $char;
    my $meta;
    foreach $char (keys %key){
       $meta =quotemeta $key{$char};
       $$message->{body} =~ s/$meta/$char/gis;
    }
}