my $text = "BrownWolf BrownWolf BrownWolf BrownWolf";
my ($fang) = $text =~ s~BrownWolf~~g;
print $fang;