$a = 'string';
if (defined ($a <=> $a)) { print "Oops"; }