--(albeit with an extra white space at the end); --perl -ne'$,=$";print/(\b[A-Z]\w*)/g,""' Couldn't you just 'chomp' it? Or am I missing something? trowt ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe