Re: [FWP] Gender differentiation

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

Er, GONG!  Nope:

while (<DATA>) {
   print $_ if /(?:[^o]|[^w]o|^.?)[Mm][ae]n/; # Still finding women...
}

__DATA__
'Snowmen' are leaving 'snowwomen' alone; too icey...
Some women walking.
Some men walking.
Woman is singular.
Man is singular.
The manadin orange was rotten.
There are men-working here.
Dancing women prove sexist, news at 11.
Men chase women for no apparent reason.
Women encourage them to do stupid things.
Abc Men In middle.
Men 123 at start.
Abc 123 at their end are men.
Abc Women in middle.
Here there be, women!


Please play again!  The original poster
wanted to find men while ignoring women;
er, something like that...

-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 mail with body "unsubscribe" to
==== fwp-request@technofile.org