Select Code to Download

  $query =~ s/\s+/ /g ;      # that's the whitespace
  $query =~ s/\A\s// ;       # strip leading
...
    $s =~ tr/0-9a-z/\\/c ;
    return $q.$s.$q ;
  } ;

  $query =~ s/([^ !#\$%()*,\/:;<=>?\@[\]^{|}~]+)/mash_l($1)/eg ;

...

    return $s ;
  } ;