Select Code to Download

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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