http://qs321.pair.com?node_id=568546


in reply to Modify C comment removal code to kill newlines

Hi, here is another solution.
use Regexp::Common qw/comment/; local $/; $_ = <DATA>; s/$RE{comment}{C}\n*//gm; print; __DATA__ /* I have good commenting style */ i = 1; /* And I comment every line of code */ i++; /* Even if it's pointless */ j = i; j++;
Boris