Select Code to Download

foreach(@urls){
   my $ua = LWP::UserAgent->new();
...
   else{
      print"No Match Found\n";
}