This doesn't answer your question, but is rather an attempt to help you do what it looks like you're after. I think what you are looking for is:

$ppp = defined $porter ? 'defined ' : 'undefined';
[download]

If you have perl 5.10 or better:

use 5.10;
$ppp = $porter;
$ppp //= 0;
[download]