Help for this page
if ($file[$i] =~ m(/\*)) ...
$ perl -p -e 'print "MATCH" if m(/\*)' foo foo /* MATCH/*