while(<>){
	chomp;
	$line = $_;
	$line =~ s/(<P[^<]*>)( |<[^<]*>)*(\s*)([^\s<>]+)([^\s]|<[^<]*>)*(\s)(.*?<\/P[^<]*>)/$1 $2 $3 <B>$4 <\/B> $5 $6 $7/g;
	print "$line\n";
}