sub parseinline
{
	my $stag=0;
	my $etag=0;
	while ($_ =~ /<b>/g){$stag++}
	while ($_ =~ /<\/b>/g){$etag++}
	if ($stag != $etag){print "Mismatch between start and end element for '<b>' in $ARGV[0]."}
}