# UNTESTED !!!

my $in_quote = 0;
my $in_bold = 0;
my $final_string = '';
foreach my $char ( split //, $string ) {
    if ( $char eq "'" ) {
        $in_quote = 1 - $in_quote;
    }
    else if ( $char eq '*' && !$in_quote ) {
        $final_string .= '<';
        $final_string .= $in_bold ? '/' : '';
        $final_string .= 'b>';
        $in_bold = 1 - $in_bold;
    }
    else {
        $final_string .= $char;
    }
}