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