perl -e '$/--; printf "%d\n", $/; printf "%f\n", $/; $foo = <>; $bar = <>; $_ = $foo ^ $bar;  print $_ . "\n"' in1 in2
-1
-1.000000
'1

##</code><code>##

abc-1def

##</code><code>##

12345678

##</code><code>##

PPPRR^