sub remove_comment($) {
    my $s = @_[0];
    $s =~ s/\/\*(.+?)(\*\/|$)//g;
    $s;
}
print remove_comment('AAA'), "\n";
print remove_comment('AAA/*BBB*/'), "\n";
print remove_comment('AAA/*BBB'), "\n";
print remove_comment('AAA/*BBB*/CCC'), "\n";
print remove_comment('AAA/*BBB/*CCC*/DDD*/EEE'), "\n";
print remove_comment('AAA/a//*BB*B**/CCC'), "\n";