LISTING: while(<DATA>) {
        next LISTING unless /$area_code/o;
        # store the state/province
        my ($state) = m/^(\D+)/;
        print "$area_code: $state\n";
        # once we have a match, don't continue
        # through the whole list
        last LISTING;
    }