Select Code to Download

   my $cash_in;
   my $cash_ot ;
...
   my $cash_zo  ;
   my $cash_is ;
   my $cash_if;

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

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

$myvar =
"fdfdjsk";

$myvar = "fdfdjsk";