Select Code to Download

my $last = '';
while (my $line = <$fh>) {
...
    }
    $last = $line;
}

my $content = do{local $/;<$fh>};
while ($content =~ /((?:USB\d*::0x[0-9a-fA-F::]+0x[0-9a-fA-F]+::[0-9a-
+fA-F]+INSTR\n){2})/g) {
    print $1;
}