my $keys = join '|', keys %inst; my $prefix = 'something'; my $suffix = 'else'; s/(^.*<)\:($keys)>/$1\e[31m$2\e[0m>/ or s/(^.*<)\:([a-z]+)>/$1$prefix$2$suffix>/
-QM
--
Quantum Mechanics: The dreams stuff is made of
In reply to Re: Having a "default" hash value!
by QM
in thread Having a "default" hash value!
by Ace128
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |