$ perl -Mstrict -Mwarnings -E '
    my $string = "abc\ndef\n";
    $string =~ /(.*?)$/ms;
    say q{[$]}, $1, q{[$]};
    $string =~ /(.*?)\z/ms;
    say q{[z]}, $1, q{[z]};
    $string =~ /(.*?)\Z/ms;
    say q{[Z]}, $1, q{[Z]};
'
[$]abc[$]
[z]abc
def
[z]
[Z]abc
def[Z]