#!/usr/local/bin/perl while() { $_ =~ s/^(public[^\n]+)/\/\*$1\*\//si; print $_; } __DATA__ /** * public void method1(); * is deprecated */ public void method1();