perl -e"'abc' =~ /(.+)(?{ print qq{Result: $^N\n} })(?!)/
Result: abc
Result: ab
Result: a
Result: bc
Result: b
Result: c