Help for this page
my @output=`lsusb`;
open LSUSB, "lsusb |" || die "call to lsusb failed: $!"; while (<LSUSB>) { # find what you are looking for }