undef $/; open(FIN,"$file_name"); $line =; $line =~ s#public void(.*?)\);#/*$&*/#gs; print $line;