perl -lp0e'/(\d\.\d+).*(\d\.\d+)/s;$_=$2-$1'