Re: small cperl function