perl -lp0e's/\S*:(\S+).*:..:(\S+).*/$2-$1/es' data.output #### perl -lpe'$b=(split":")[2];$a||=$b}{$_=$b-$a' data.output