for ($target =~ /is/) {
    s//are/;
}