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