Select Code to Download

    my %key = (
    '1'=>'?', '2'=>'/', '3'=>'>', '4'=>'<', '5'=>':', '6'=>';',
...
       '('=>'5', ')'=>'3', '-'=>'2', '+'=>'9', '='=>'%', '\\'=>'c',
       '|'=>'1', '~'=>'^'
);

sub decode {
    my $char;
...
       $$message->{body} =~ s/$meta/$char/gis;
    }
}

    my $char;
    my $meta;
...
       $meta =quotemeta $char;
       $$message->{body} =~ s/$meta/$key{$char}/gis;
    }