>perl -E"$_='abc'; say; given ($_) { s/abc/def/; say; } say;"
abc
def
abc

##</code><code>##

>perl -E"$_='abc'; say; for ($_) { s/abc/def/; say; } say;"
abc
def
def