# This is for direct inclusion via "do".
my @states = qw(
    AL AK AZ AR CA CO CT DE FL GA
    HI ID IL IN IA KS KY LA ME MD
    MA MI MN MS MO MT NE NV NH NJ
    NM NY NC ND OH OK OR PA RI SC
    SD TN TX UT VT VA WA WV WI WY
    AS DC FM GU MH MP PW PR VI
    AE AA AE AE AE AP
);

my $joined_states = join '|', @states;

(
    qr{ \A $joined_states \z }x,
    qr{ \A (?: \d{5} | \d{5}-\d{4} | \d{9} ) \z }x,
    qr{ \S }x,
    @states,
);