Clifford Hammerschmidt wrote: > > $_=q(print "\$_=q($_);eval");eval seek DATA,0,0;print<DATA> __DATA__ Not shorter, but sweeter, FSDO sweet. -- John Porter A pound of cure is worth a megaton of homeopathy. ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe