Hi,
if I process this, it would not match the
commented line with doWhatEver().
But thanks.
CoC

#!/usr/local/bin/perl -w

while (<DATA>) {
 if ( $_ !~ m{^/[*/]} ) {
   print $_;
 }
}

__DATA__
doApply()

// doNotApply()

/*
  doWhatEver()
*/

Test4()
[download]

will show :

huxl:~>./tst.pl 
doApply()


  doWhatEver()
*/

Test4()
[download]