in reply to Regex partial substitution from array

I'd just like to point that 
while (m@href=\"\./\d+\.html\">(.+)</a>@g) {push (@array, $1);}

[download]
can be better written as 
@array = m@href=\"\./\d+\.html\">(.+)</a>@g;

[download]
--Stevie-O 
$"=$,,$_=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

[download]

In Section Seekers of Perl Wisdom