($date, $address) = $array[$line+2] =~ /.*?(\d{2}\/\d{2}\/\d{4})?(.*)/;