Select Code to Download

# This code is untested.
open PAGE, "$data_reg" or die "Can't open $data_reg: $!";
...
<div>Please check with the webmaster of this site."
   and exit) unless @matchinglines;
close PAGE;

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/