For arbitrary messages:

    sub escape {
        my $arg = shift;
        $arg =~ s/([^a-zA-Z0-9_])/\\$1/g;
        return $arg;
    }