{
    my $text = "BrownWolf BrownWolf BrownWolf BrownWolf";
    my @fang = $text =~ s~(Brown)Wolf~~g;
    {local $"=', '; print "s: @fang\n"}
}

{
    my $text = "BrownWolf BrownWolf BrownWolf BrownWolf";
    my @fang = $text =~ m~(Brown)Wolf~g;
    {local $"=', '; print "m: @fang\n"}
}