# reg2.pl - Don Yang (uguu.org)
#
# 06/16/01

for($i = join '', <>; $i; print $t)
{
   $i =~
      /^ (" ((\\.)|[^\\"])*? ")  |
         (' ((\\.)|[^\\'])*? ')  |
         (\/\* .*? \*\/)         |
         .
      /sx;

   $i = substr $i, length ($t = $&);

   $t =~ s/[^\s\n]/ /gs if $t =~ /.+\/$/s;
}