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>