use File::Find::Rule;

  my($ext, $dir) = qw( .{ext,wav,swf} /home/user/files );
  for(find(file => name => $ext, in => $dir)) {
    ## operate on file here
  }