> 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 $_ :-( Etienne ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe