foreach ('abc' =~ /.+?/a) {
        print "$_\n";        
    }

    __END__
    a
    ab
    abc
    b
    bc
    c

##</code><code>##

    use Regexp::AllMatches;

    my $matcher = Regexp::AllMatches->new(STRING => qr/PATTERN/);

    while (my ($match) = $matcher->next) {
        print "$match\n";
    }

##</code><code>##

    * new
    * clone
    * next

##</code><code>##

    * prematch ($`)
    * match ($&)
    * postmatch ($`)
    * group ($<*digits*>)
    * groups

##</code><code>##

    * curr
    * prev
    * reset
    * all