Steve Lane wrote: > here's my first try: > > sub fifth_word {$_=pop;s/^\W+//;(split/\W+/)[4]} sub fifth_word {(pop=~/\w+/g)[4]} -- John Porter ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe