Re: [FWP] TPJ One-Liner #39

[patrik.grip-jansson@vv.se]

Edward M. Perry wrote;
> > I'm quite sure it can be solved, but at the price of code bloat! :-)
>
>You can fix that pesky final character with a mere 16 characters of 
>bloat (~ 40%), and a rewrite:
>
>perl -ne'push(@a,/\b[A-Z]\w*/g);END{print join($",@a)}'

So, finally we have come full circle and are back at the first solution from
Perl Journal. Well of course the reg exp is improved...


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe