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