$textin =~ s/<[^>]*>//sg;   ## strip normal tags
$textin =~ s/^[^>]*>//sg;   ## strip sneaky left over stuff
$textin =~ s/<[^<]*$//sg;   ## strip sneaky left over stuff