> At 12:58 PM 10/18/00 -0300, Joey Mitchell Comeau wrote: > >Here's mine. > > > > sub fifth($) {(split(/\W/,shift))[4]}; > > sub fifth{($_[0]=~/(\w+)/g)[3]} sub fifth{(pop=~/(\w+)/g)[4]} more shameless stealing!! joey ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe