Select Code to Download

my(%manufacturers)= (
    Cisco        => qr/Cisco/i,
...
        last;
    }
}

my(@manufacturers)= (
    Cisco        => qr/Cisco/i,
...
    }
}
print $m;