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]."}
}

##</code><code>##

use XML::parser;
...
...
XML::parser->parsetag();

##</code><code>##

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