$date    = _trim($1) if $line =~ s/.*(\d{2}\/\d{2}\/\d{4})//;
   $address = _trim($1) if $line =~ /(.*)/;