my($quote) = $source =~ /.*last: ([0-9.]+)/i;