opendevnet

sub escape ($str) {
    # Puts a slash before non-alphanumeric characters
    S:g[<-alpha -digit>] = "\\$/" given $str
}

say escape 'foo#bar?'; # foo\#bar\?

{
    sub escape ($str) {
        # Writes each non-alphanumeric character in its hexadecimal escape

opendevnet

JAPH

• mxey japh
• dmol japh
• labster japh
• grondilu japh
• Farow japh
• Cybelechild japh
• census japh
• wesjdj japh