Find and replace first non tag

[st33d]

I'm having trouble getting my head round this one. I want to search a html node which I've already extracted and substitute the first non tag.

s/(1st non tag)/(1st non tag + $string)/i

I'd image the script for the match would be along the lines of

>\w+<

But I can't figure out how I would get the actual pattern matched. Is there a way to do this?

[st33d]

Huzzah!

# Make the first line bold
$body =~ s/>(\s*([^><\s]+\s*)+)</><b>$1<\/b></;