>perl -le"$_='is'; s/^is$/are/g; print"
are

>perl -le"$_='is is is'; s/^is$/are/g; print"
is is is

>perl -le"$_='is is is'; s/^is|is$/are/g; print"
are is are