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