Select Code to Download

  $line =~ m/ ... /i or next;
  $line =~ m/ ... /i or die "line '$line' failed to match";
...
    # log it somewhere
    next;
  };