this is good! Use gubes method. heres my extention applied to it.

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