[Perl] Remove all comments in c

Command

perl -i -wpe 'BEGIN{undef $/} s/\/\/[^\n\r]*(\n\r)?//g; s!/\*.*?\*/!!sg;' <file-name>    

Reference

1. How can I delete all /* */ comments from a C source file? ↩
2. Remove comments from C/C++ code ↩