CareerCup

open FILE,'<',"cppfile.cpp" or die $!;
@lines=<FILE>;
close FILE;
open FILE,'>',"cppfile.cpp" or die $!;
my $commentblock=0;

foreach(@lines)
{

  $line=$_;
  if($line =~ s/^\/\/.*$// )
  {
        next;
  }

  elsif ($line =~ /^\/\*.*/)
  {
        $commentblock=1;
        next;
  }
  elsif( $line =~ /.*\*\/$/ && $commentblock)
  {                            
        $commentblock=0;       
        next;
  }
  elsif($commentblock)
  {
        next;
  }

  print FILE $line;
}

#!/usr/bin/perl -w

use strict;

my $lines;
open(IN, "c++code.txt") or die("$!\n");
while(defined($lines = <IN>))
{
	$lines =~ s/\/\///g;
	$lines =~ s/\/\*//g;
	$lines =~ s/\*\///g;
	print $lines;
}
close IN;

you can also try this:

# To remove comment from c++ file
my $read = "c++.txt";
open(READ,"<$read");
while(<READ>) {
$_=~ s/\/\*(.*)\*\///g or s/\/\/(.*)\/\///g;
print $_;
}
close READ;

What you have do is to find // or /**/ not enclose in any quote, use regex for searching the pattern, your issue will be resolved.