#!/usr/bin/perl
while(my $line = <>) {
    if ($line =~ /profile_([^.]+).xml:[^<]+<usbPid>([0-9]+)/) {
		printf("%s: %4x\n", $1, $2);
    } else {
    	print($line);
    }
}

# Use as:
# grep usbPid *.xml | grep -v demo | perl extract.pl | sed -e "s/_/ /g" -e "s/ a/0a/g" -e "s/  1/ 01/g" | uniq