Help for this page

Select Code to Download

Select or download this

open(PAGES, "<pages.txt") || die $!;
my @filenames;
...
    }
}
  close PAGES;

Select or download this

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.