How could the following one-liner (#39) from the latest Perl journal be improved? perl -ne 'push@w,/(\b[A-Z]\S*?\b)/g;END{print"@w"}' Ronald ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe