WC -Sx- Jones wrote:
> ''=~('('.'?'.'{'
> . ('`'|'%').('['^"\-").( (
...
> ( '.')^'~';$~='@'|'(';$^=')'^'[';$/= (
> ( '`'))|'.';$,='('^'}';$\='`'|'!'; (
> ( $:))=')'^'}';$~='*'|'`';$^='+' ^
> ( '_');$/='&'|'@';$,='['&'~' ;
> ( $\)=','^'|';$:='.'^'~' ;
> $~='@'|('(');#;#
^Z
Now that, I must admit, is wa-a-a-a-ay slick! LOL
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
