if ($file[$i] =~ m(/\*)) 
...