There is *always* more than one way to do it. That doesn't mean every post should contain all of them. In particular throwing out a regexp with non-basic syntax but no explanation doesn't seem like it will make things clearer for the novice.

There are regexes in the OP's code, and regexes are a pretty core part of "thinking perl", so i think /AN/ answer including regex would be useful. But at the same time, how helpful is it to complain about someone elses answer like that? Why not just make a post with an explanation? Anyway.

So heres an explanation:

  $FileExt =~/              # "file extension matches ...."
              \A            # the start of the variable
              \.            # match a literal dot
              (?:           # begin a set of options
                 foo        #    the option itself
              |             # OR
                 bar        #    another option
              )             # end of option group
              \z            # end of variable
             /x;            # end of pattern, enable comments in the r
+egex
[download]