Help for this page

Select Code to Download


  1. or download this
    my $count = length( $str =~ s/[^\Q$char\E]//rg );