use Data::Dump 'pp';
$s = "abc\n";
if ($s =~ /(ab.*?)\z/s) {
	pp($1);
}
if ($s =~ /(ab.*)\z/s) {
	pp($1);
}

__END__
"abc\n"
"abc\n"