Remove comments and empty lines from source code

rmcomment.pl

#!/usr/bin/perl

undef $/;

$text = <>;

$text =~ s/\/\/[^\n\r]*(\n\r)?//g;
$text =~ s/\/\*+([^*]|\*(?!\/))*\*+\///g;
$text =~ s/\n+/\n/g;

print $text;