Its not very clear what you are asking. If you want to know how to tell if the bold tags cover the fully content of the title tag maybe:

sub is_all_in_bold {
    my $title=shift;
    my ($title_content)=$title=~m!<title>(.*?)</title>!s;
    $title_content=~s!<b>.*?</b>!!sg;
    return !$title_content;
}

while (<DATA>) {
    print;
    chomp;
    print is_all_in_bold($_) ? "Its all in bold\n" : "Its not all in b
+old\n";
}
__END__
<title><b>Meta&hyphen;Ethics and The Problem of Creeping Minimalism</b
+></title>
<title>Meta&hyphen;Ethics and <b>The Problem of Creeping</b> <b>Minima
+lism</b></title>
[download]

But i could have totally misunderstood the question.

That reports Its not all in bold on: <title><b>foo<b>bar</b></b></title>

Yep and illustrates nicely why handling HTML with regexes is not recommended. Anyway, I think the following works:

sub is_all_in_bold {
    my $title=shift;
    my ($title_content)=$title=~m!<title>(.*?)</title>!s;
    1 while $title_content=~s#<b>(?:[^<>]+|(?!</?b>).)*</b>##s;
    print "$title_content\n";
    return !$title_content;
}

while (<DATA>) {
    print;
    chomp;
    next unless /\S/;
    print is_all_in_bold($_) ? "Its all in bold\n" : "Its not all in b
+old\n";
}
__END__
<title><b>Meta&hyphen;Ethics and The Problem of Creeping Minimalism</b
+></title>
<title>Meta&hyphen;Ethics and <b>The Problem of Creeping</b> <b>Minima
+lism</b></title>
<title><b>foo<b>bar</b></b></title>
[download]



---
demerphq


First they ignore you, then they laugh at you, then they fight you, then you win.
-- Gandhi

Flux8

HTML::TokeParser might be useful for this. It will return each tag one by one and you can write your logic around it.

Also, please use <code> tags if you want to show code. :-)

update: I'm assuming that you're trying to create HTML, where you shouldn't have ANY formatting in the title.

What I can't figure out is wether you want the error message to appear, or if you want the message to go away. :-/

First, it's considered bad form here to keep reposting the same question. Your reposted question was removed from the queue for this reason. You should do some reading over at the FAQ to learn more about how things work here: About the PerlMonks FAQ

Secondly, I'd love to know where are you getting this Error message from? What program? What operating system? More background info will help all of us understand your question.

We want to help you, if you can provide us more info.

--bibo