my $fang;
my $text = "BrownWolf";
$text =~ s~
          ^([^<]+)
          (?{$fang=$1})
          ~~x;
print $fang;