> cat PigLatin.pl
#!/usr/bin/perl
while ( <> ) {
@pieces = split /\|/;
$pieces[1] =~ s/\b(qu|y(?=[^t])|[^\W\daeiouy]*)([a-z']+)/$2.($1||w).ay/eg;
print join '|', @pieces;
}
--
Curt, WE7U: <www.eskimo.com/~archer/> XASTIR: <www.xastir.org>
"Lotto: A tax on people who are bad at math." -- unknown
"Windows: Microsoft's tax on computer illiterates." -- WE7U
The world DOES revolve around me: I picked the coordinate system!
_______________________________________________
Xastir mailing list
Xastir@xastir.org
http://lists.xastir.org/cgi-bin/mailman/listinfo/xastir
