if ($line =~ m/USB\d*::0x[0-9a-fA-F::]+0x[0-9a-fA-F]+::[0-9a-fA-F]+INSTR\s*(.+?)\s*USB\d*/) 
   {
    print $line;
   }
 }