Help for this page

Select Code to Download

Select or download this

while(<DATA>)
{
for($a=0;$a scalar@codes;$a++)
...
    }
}
print $_;