Help for this page

Select Code to Download


  1. or download this
        while (local $_ = match('a')) {
            print "- $_\n";
        }
    
  2. or download this
        print "- $_\n" for grep {/a/} @data;