Select Code to Download

sub reg_fix {
    my $c = shift;
...
}

$c = reg_fix($c);

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