my ($name, $loc, $upp, $rest) = /^(\w.*\w)\s*(\d{4})\s*(\S{9}) (.*)$/;