Help for this page

Select Code to Download

Select or download this

    while (local $_ = match('a')) {
        print "- $_\n";
    }

Select or download this
print "- $_\n" for grep {/a/} @data;