Select Code to Download

$a = "this is a test\n";

$a =~ s/t(?!e)/T/g;
...
$b =~ s/t([^e])/T$1/g;

print $b;