if ($token->[0] eq "S" and ${$token->[2]}{year}){ $year = ${$token->[2]}{year} }
      if ($token->[0] eq "S"){