$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;
}