>> sub abs{(my$x=$_[0])=~s/^-//;$x} >> >> There. That's bad enough, but at least it should work right. > > You're right, I forgot to return $_ :-( It was pretty cool anyway. Now how about tying all arrays to a Storable string or something and doing regexes on it...? ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe