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

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

__DATA__
doApply()

// doNotApply()

/*
  doWhatEver()
*/

Test4()