my @switch;
while ($cdp =~  m/(.*0x01.*)/g) {
    push @switch, (split /\s+/, $1)[7];
}