I wrote: > s/\b[c-q_]\b/\$$&/g;eval Oops. Make that s/\b[c-qt_]\b/\$$&/g;eval So back to 504 bytes. -- Keith C. Ivey <kcivey@cpcug.org> Washington, DC ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe