in reply to Re^2: a simple exercise in readability
in thread a simple exercise in readability

Yes, good point.  Of course my solution is only intended for cases where one explicitly does NOT want the value of zero as valid input.

As for the "little more clumsy":

die $syntax if ! defined (my $x = shift);

and assuming you needed to allow for zero valued input, I'd be inclined to go with the slightly pithier:

defined(my $x = shift) or die $syntax;

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/