$num = (~abs($num))+1 if $num < 0;