解决方法
试试
Regexp::Common::comment：
use Regexp::Common qw /comment/;
while (<>) {
s/($RE{comment}{C++})//;
}
