> perl -E '
use P;
P "_=%s", $_ for $_=3;$_-- >0; '
_=3