Help for this page
while (m@href=\"\./\d+\.html\">(.+)</a>@g) {push (@array, $1);}
@array = m@href=\"\./\d+\.html\">(.+)</a>@g;
$"=$,,$_=q>|\p4<6 8p<M/_|<('=> .q>.<4-KI<l|2$<6%s!<qn#F<>;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/</;$_=$,,y[A-Z a-z] {}cd;print lc