$ perl -wle'print defined +() ? 1 : 0' $ 0 $ perl -wle'$_ = 1; print defined +() ? 1 : 0' $ 0 $ perl -wle'$_ = 1; print defined () ? 1 : 0' $ 1