Select Code to Download

my $slrp = '';
while(<$fh>){
...
    $slrp .= $_;
  }
}

 m{
    (domain bit.+) ##domain bit and everything until
...
    Failed downloads:(.*) ## next title, capture everything until...
    etc...
  }mxog