while(<DATA>) {
  $_ =~ s/^\s*((public|private)[^\n]+)/\/\*$1\*\//si;
  print $_;
}