Select Code to Download

while(<>){
    print "$1;\n" if /^(Key [0-5] 0x[\da-f]{14})/i;
...
        print "$match;\n";
    }
}

perl -ni -le 'print "$1;" if /^(Key [0-5] 0x[\da-f]{14})/i' file.txt