my ( $minute, $time ) = ( $string =~ /^\d+:(\d+).*?,(\d+:\d+:\d+)/ )