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