perl -lp0e'/([\d.]{9}).*([\d.]{9})/s;$_=$2-$1'