Select Code to Download

foreach (@inx) {
   delete @inx[$ac] if $_ =~ /^Content-Type: application\/octet-stream
+/;
   $ac++;
 }

@inx = grep { $_ !~ /.../ } @inx;