Or use the parentheses around the argument to defined():

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

That looks more sensical than some floating + to make things work.

japhy -- Perl and Regex Hacker