I wrote: >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]} Duh, s/3/4/. For some reason my brain turned fifth into fourth. Although John Porter already passsed me on the green while I was stuck in the sand trap. -- Peter Scott Pacific Systems Design Technologies ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe