perl -ne'chomp; $x=$_; print "x=$x, -x=",-$x,"\n";'