sub reg_fix {
	my $c = shift;
	
	$c =~ s#(<.*?>)|(/|\*|_|=)((?:<.*?>|[^\2])+?)\2\s?#
		if ($1) {$1} elsif ($2 eq '/') {'<em>' . reg_fix($3) . '</em> '}
		elsif ($2 eq '*') {'<b>' . reg_fix($3) . '</b> '}
		elsif ($2 eq '_') {'<u>' . reg_fix($3) . '</u> '}#gemio;
	
	return $c;
}

$c = reg_fix($c);

##</code><code>##

$c =~ s#((<.*?>)|(/|\*|_|=)((?:<.*?>|[^\2])+?)(\2|$)\s?)#
sub reg_fix {
	my $c = shift;
	print "Running check on '$c'\n";
	$c =~ s#((<.*?>)|(/|\*|_|=)((?:<.*?>|[^\2])+?)(\2|$)\s?)#
	
	if (!$5) {$1}
	elsif ($2) {$1} 
	elsif ($3 eq '/') {'<em>' . reg_fix($4) . '</em> '}
	elsif ($3 eq '*') {'<b>' . reg_fix($4) . '</b> '}
	elsif ($3 eq '_') {'<u>' . reg_fix($4) . '</u> '}#gemio;
	return $c;
}