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

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