use Regexp::Common;
$code_string =~ s/$RE{comment}{C}//g;