> > sub fifth{($_[0]=~/(\w+)/g)[3]} > sub fifth{(pop=~/(\w+)/g)[4]} sub fifth{(pop=~/\w+/g)[4]} This works, too. joey ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe