Help for this page

Select Code to Download


  1. or download this
    #!perl -l
    
    my $str = "here are some words";
    my $count = @{[ $str =~ /\S+/g ]};
    print $count;