get;say sum map {/(.*)\:(.*)(.+)\:(.+)/;(($2-$0)*60+$3-$1)%1440},lines