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

##</code><code>##

$ perl -p -e 'print "MATCH" if m(/\*)'
foo
foo
/*
MATCH/*