Select Code to Download

Select or download this

use warnings;
use strict;
...

__DATA__
  if($link->text ne 'AK' && $link->text ne 'KY' && $link->text ne 'AS'
+ && $link->text ne 'MA' && $link->text ne 'MI' && $link->text ne 'CO'
+ && $link->text ne 'DC' && $link->text ne 'GA' && $link->text ne 'IN'
+ && $link->text ne 'MD' && $link->text ne 'CT' && $link->text ne 'AR'
+ && $link->text ne 'ID' && $link->text ne 'IL' && $link->text ne 'CA'
+ && $link->text ne 'AL' && $link->text ne 'ME' && $link->text ne 'DE'
+ && $link->text ne 'GU' && $link->text ne 'FL' && $link->text ne 'IA'
+ && $link->text ne 'LA' && $link->text ne 'HI' && $link->text ne 'KS'
+ && $link->text ne 'AZ')

Select or download this

          'IN' => 1,
          'FL' => 1,
...
          'IL' => 1,
          'AL' => 1,
          'CT' => 1

Select or download this
```
...

...
  'AL' => 1,
  'CT' => 1
);
```

Select or download this


if (! $states{$link->text}){
    ...
}

Select or download this

my @state_abbrs = qw(
    IL MI AZ CT ...
...
if (! $states{$link->text}){
    ...
}