my %insens = (
	bad => 'sad',
	Bad => 'Sad',
	bAd => 'sAd',
);

s/(bad)/$insens{$1}/gi;