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