my %inst = (
    "unimp" => "\e[31munimp\e[0m",

    "be" => "\e[31mbe\e[0m",
    "bne" => "\e[31mbne\e[0m",
    "ba" => "\e[31mba\e[0m",
    "bl" => "\e[31mbl\e[0m",
    "call" => "\e[31mcall\e[0m",
    "jmp" => "\e[31mjmp\e[0m",
);

##</code><code>##

s/(^.*<)\:([a-z]+)>/$1$inst{$2}/;

##</code><code>##

    "default" => "\e[31m$the_key\e[0m",