my ($fang) = $text =~ s~^([^<]+)~~;