my %ch = ('green' => 'lousy', 
          'blue'  => 'cool', 
          'pink'  => 'mini' ) ;
my $str = 'I have a green hat, blue shirt, plus a pink jacket';
print $str . "\n" ;
$str =~ s/(green|blue|pink)/$ch{$1}/g ;
print $str ;


__END__

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

##</code><code>##

use Tie::RegexpHash;
my %sr;
tie %sr, 'Tie::RegexpHash';
$sr{qr/\bh+(a|@)+t+e+\b/i} = 'love';
$sr{qr/\b(u|you|eww)\b/i}  = 'you';
# - - - - - - - - - - - - - - - - -- - - - -- - - - -
$_ = "I hate you i HAte u i HH\@\@\@TTeE eww i HA\@AaaTTee u I HATE YOU!\n"; 
print;
my $s = join("|", keys%sr);
s/($s)/$sr{$1}/g;
print;


__END__

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!

##</code><code>##

use Tie::RegexpHash;
my %sr;
tie %sr, 'Tie::RegexpHash';
# - - - - - - - - - - - - - - - - - - - - - - - - - -
# search and replace
$sr{qr/\b(h)arbour\b/i}     = '$2arbor';
$sr{qr/\b(h)onour(.*?)\b/i} = '$3onor$4';
$sr{qr/\b(c)entre\b/i}      = '$5enter';
# - - - - - - - - - - - - - - - - -- - - - -- - - - -
$_ = "Programmers Honoured at Harbour Centre\n"; 
print;
my $s = join("|", keys%sr);
s/($s)/eval'"'.$sr{$1}.'"'/ge;
print;


__END__

Programmers Honoured at Harbour Centre
Programmers Honored at Harbor Center

##</code><code>##

use Tie::RegexpHash;
my %sr;
tie %sr, 'Tie::RegexpHash';
# - - - - - - - - - - - - - - - - - - - - - - - - - -
# search and replace
$sr{qr/\b(c)entre\b/i}      = '$5enter';
$sr{qr/\b(h)arbour\b/i}     = '$2arbor';
$sr{qr/\b(h)onour(.*?)\b/i} = '$3onor$4';
$sr{qr/(T|t)heatre/}        = 'theater';
# - - - - - - - - - - - - - - - - -- - - - -- - - - -
$_ = "Programmers Honoured at Harbour Centre\n"; 
print;
my $s = join("|", keys%sr);
s/($s)/eval'"'.$sr{$1}.'"'/ge;
print;


__END__

Programmers Honoured at Harbour Centre
Programmers onorH at arbor enter

##</code><code>##

use Regexp::Subst::Parallel;
my @sr =( qr/\b(h)arbour\b/i     => '$1arbor',
          qr/\b(h)onour(.*?)\b/i => '$1onor$2',
          qr/\b(c)entre\b/i      => '$1enter',
          qr/\b(L|l)ift\b/       => sub{$_=$_[1]=~/L/?"E":"e";$_."levator"}
        );
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$_ = "Man Honoured at Harbour Centre by the Lift\n"; 
print;
$_ = subst($_, @sr);
print;


__END__

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