Help for this page

Select Code to Download

Select or download this

my %names;
while ($str=~/(\S+)/g) {
    $names{$1}++;
}