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);