Select Code to Download

my $regex = join '|', map "\Q$_\E?", @filelist;

...
}

$f_count = scalar @found_html;

1234567_3a_20101000\.html?|99877_b_20111111\.html?|99877_c_20111111\.h
+tml?|99877_d_20111111\.html?|99877_e_20111111\.html?|99877_uf_2011111
+1\.html?|1234567_g_20101000\.html?|99877_h_20111111\.html?|99877_i_20
+111111\.html?|99877_j_20111111\.html?|99877_k_20111111\.html?|99877_l
+l_20111111\.html?|1234567_pl_20101000\.html?|99877_qa_20111111\.html?
+|99877_rr_20111111\.html?|99877_sx_20111111\.html?|99877_xy_20111111\
+.html?|99877_nm_20111111\.html?