As with the competition over
here, i wondered if it could be done without any \w characters. Well, i cheated and spliced the idea above from Abigail (using *nix comands via backticks) with the standard way of doing it (bit xor'ing characters) and came up with the following:
$,=('%'^'@').('#'^'@').('('^'@').('/'^'@').$".('*'^'`').('('^']').(
'('^'[').('('^'\\').$".('!'^'@').('.'^'@').('/'^'@').('('^'\\').('('
^'@').('%'^'@').(')'^'[').$".('+'^'{').('%'^'@').(')'^'[').(','^'@')
.$".('('^'@').('!'^'@').('#'^'@').('+'^'@').('%'^'@').(')'^'[').', > /
+'
.('$'^'@').('%'^'@').('('^'^').'/'.('('^'\\').('('^'\\').('"'^'['),`$,
+`
not very interesting, but it gets the job done...
jynx