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