my $var="null\n" ;chomp($var) ;if ($var="null") {print "Good" ;}