Select Code to Download

my $keys = join '|', keys %inst;
my $prefix = 'something';
...
s/(^.*<)\:($keys)>/$1\e[31m$2\e[0m>/
  or
s/(^.*<)\:([a-z]+)>/$1$prefix$2$suffix>/