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

##</code><code>##

    $temp = &get_token("a");
    if ($temp eq "&nbsp;"){
        $info->{email} = '';
    }
    else{
        $info->{email} = $temp;
    }

##</code><code>##

    $token = get_token("a");
    $info->{email} = $token eq "&nbsp;"
        ? ''
        : $token
    ;
    # update: had a mish-mash of temp/token in this snippet

##</code><code>##

    my $t2;
    ($info->{city}, $t2) = split(', ',$temp);
    ($info->{state},$t2) = split(" ",$t2);
    $t2 =~ s/\s+//;
    $info->{zip} = $t2;

##</code><code>##

    @{$info}{qw{     city       state   zip}} =
        ($token =~ /^([^,])+,\s+(\S+)\s+(\d+)$/)
            ? (      $1,        $2,     $3     )
            : (      '',        '',     ''     )
    ;