my ($garbage, $date, $name, $number) = unpack "A10A12A32A10", $data_line;