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