in reply to Pattern Matching

There is a problem with your regex as a matter of fact.

Try:

if($file =~ /0000.*\/)

The '.' matches any character and the '*' quantifies the '.' to match 0 or more times.

- Frank