Select Code to Download

my %ch = ('green' => 'lousy', 
          'blue'  => 'cool', 
...

I have a green hat, blue shirt, plus a pink jacket
I have a lousy hat, cool shirt, plus a mini jacket

use Tie::RegexpHash;
my %sr;
...

I hate you i HAte u i HH@@@TTeE eww i HA@AaaTTee u I HATE YOU!
I love you i love you i love you i love you I love you!

use Tie::RegexpHash;
my %sr;
...

Programmers Honoured at Harbour Centre
Programmers Honored at Harbor Center

use Tie::RegexpHash;
my %sr;
...

Programmers Honoured at Harbour Centre
Programmers onorH at arbor enter

use Regexp::Subst::Parallel;
my @sr =( qr/\b(h)arbour\b/i     => '$1arbor',
...

Man Honoured at Harbour Centre by the Lift
Man Honored at Harbor Center by the Elevator