if ($_ =~ /^THIS/) {$_ =~ s/I/A/}