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

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

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

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