if ($in_str =~ /^aa((<[^>]*>)*)([^a-zA-Z]*)$/)
#                                          ^