Or, like I said in the other place this was posted, put the parens in a more normal place: around the arguments to defined:

print defined($a) ? "defined\n" : "undefined\n";
[download]

japhy -- Perl and Regex Hacker