123456789 2 3 4 5 6 % cat data.output | perl -n0e'/.{6}(.{9}).*[\d|:]{6}([\d|\.]{9})(?!\n)/s,print$2-$1.'