# perl -E '$x="abc\ndef"; $x=~s/.*/u/mi; say $x'
u
def
# perl -E '$x="abc\ndef"; $x=~s/[\s\S]*/u/mi; say $x'
u
# perl -E '$x="abc\ndef"; $x=~s/(?s:.*)/u/mi; say $x'
u