my $string="one two one two";
my @ones=$string=~m/\bone\b/g;
my @twos=$string=~m/\btwo\b/g;
print scalar(@ones) ,"\t\"ones\"\n",scalar (@twos),"\t\"twos\"\n"; 
print "Equal numbers\n" if (scalar (@ones)== scalar (@twos));'