Welcome to the wonderful world of regexes! To learn more about regular expressions, check out my perlrequick tutorial.

With reference to your particular question, alternation will help here:

if ($filename =~ /\.(jpg|gif|bmp|doc|txt)$/ {
   print "Found a match\n";
}
[download]