Help for this page

Select Code to Download

Select or download this

LISTING: while(<DATA>) {
        next LISTING unless /$area_code/o;
...
        # through the whole list
        last LISTING;
    }