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