my ( $quote, $time ) = /^\s*(\d+\.\d+)\s*,\s*(\d\d:\d\d:\d\d)/ or next;