http://www.perlmonks.org?node_id=132615


in reply to Conditionally Changing a Variable

Might want to move the $
$c=0 if ($c < 0);