Caller ID Superfecta

<?php

$file = "areacodes.txt";

$fh = fopen($file, 'w') or die("can't open file");

$lcnt = 0;

$expr = "/class=\"txtTabla\"><div align=\"center\">(.+)<\/div><\/td>/";

set_time_limit(0);

for ($i = 0; $i <= 2900; $i = $i + 25){

        $result = file_get_contents("http://www.cnc.gov.ar/infotecnica/numeracion/indicativosinter.asp?offset=$i");

        preg_match_all($expr,$result,$matches);

        $line = '';

        foreach ($matches[1] as $val){

                $line .= '"0' . $val . '",';

                $lcnt ++;

                if($lcnt>10){

                        $lcnt = 0;

                        $line .= "\n\t\t";

                }

        }

        fwrite($fh, $line);

        echo "Completed ".($i+1)." to " . ($i + count($matches[1])) . "<br>\n";

        @ob_flush();

        @flush();

}

fclose($fh);

?>