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

##</code><code>##

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