Let's see if the list software likes me and lets this work: $/=0;$_=<DATA>;s/\s*//s;split//;print uc++$_[21],@_[57,18,64,29],uc$_[6], @_[32,56,8,37,23,26,38..42,58],uc$_[37], @_[6,19],++$_[21],@_[40,20,50],chr index $_,'to' __END__ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe