my $s=ord( $n )==49;