for my $is (1) {       # one iteration with $is=1
   $target =~ s//are/;
}