Re: [FWP] Gender differentiation

[Roland Giersig <roland.giersig@alcatel.at>]

Bill Jones wrote:
> But, here is another (smaller) *gong* (a question, really):
> 
> wmen: 'Snowmen' are leaving 'snowwomen' alone; too icey...
> 
> Is this an unintentional side effect?

No, I just wanted to show what the RE really matches, in
that case it also matches the `w' in `Snowmen'.

Now for the fun: replace all masculines with feminines:

 while (<DATA>) {
   s/([^o]|[^Ww]o|^.?)([Mm])([ae])n/$1 . ($2 eq 'M'? 'W' : 'w') . "om${3}n"/eg;
   print; 
 }

Roland
--
perl -e '@_=@ARGV;$_="@_[-3,-2,-1]";s{([@{[$_[-1]]}])}#($0=$1.
${[qw[>$%, ()%{&", &"=, |}+&" *]]}[$@++])=~y/*=->$%&"(-){-}+,/
lusternohack /,$0#eg; print; '        -- Roland Giersig, JAPH.

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