Help for this page

Select Code to Download


  1. or download this
    my @strings = qw( abb aabbb aaabbbb ab aab aabb abbb );
    
    ...
            print "In '$_' there were $a_counter 'a's and $b_counter 'b's.
    +\n";
        }
    }