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

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

   $input = substr $input, length ($token = $&);

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