1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
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";