$s = 'foo FOO Foo fOO';
$s =~ s/(foo)/$1 ^ lc($1) ^ "bar"/gie;
print $s,"\n"; # outputs "bar BAR Bar bAR"
[download]

This works as long as you are using ASCII and only matching alpha characters

Dave.