Re: [FWP] Gender differentiation

["Bill Jones" <bill@fccj.org>]

> Correct this to 
> 
> while (<DATA>) {
>    print "$1: $_" if /((?:[^o]|[^Ww]o|^.?)[Mm][ae]n)/;
> }
>
> to adjust for uppercase Women and it Does The Right Thing (TM).
>
> __DATA__
> 'Snowmen' are leaving 'snowwomen' alone; too icey...


:)
(an MSN FrogPond frog)


Obviously I should be the LAST person in the Perl world
to gong anyone (that other gong was just teasing. :)


But, here is another (smaller) *gong* (a question, really):

wmen: 'Snowmen' are leaving 'snowwomen' alone; too icey...

Is this an unintentional side effect?

???
-Sneex-  :]
FCCJ Data Security Group
______________________________________________________________________
Bill Jones  Data Security Specialist  http://www.fccj.org/cgi/mail?dss

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe