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

    __END__
    a
    ab
    abc
    b
    bc
    c