Select Code to Download

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

    use Regexp::AllMatches;

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

    * new
    * clone
    * next

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

    * curr
    * prev
    * reset
    * all