3 ms·
For arbitrary messages: sub escape { my $arg = shift; $arg =~ s/([^a-zA-Z0-9_])/\\$1/g; return $arg; }
by qntm 15y ago
For arbitrary messages:
sub escape {
my $arg = shift;
$arg =~ s/([^a-zA-Z0-9_])/\\$1/g;
return $arg;
}