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

##</code><code>##

thare is a test of the servise

##</code><code>##

$target =~ /is/;
$target =~ s//are/;