Or even better:

my $l = Regexp::List->new; 
my $re = $l->list2re(qw(sdp rtsp rts mov qt smi sml smil avi vfw flcfl
+i wav bwf aiff aif aifc cdda au 
  snd ulw mid midi smf kar qcp sd2 amr gsm mpeg meg m2s m1v ma1 m75 m1
+5 mpm mpv mpa 3gp 3gpp 3g2 3gp2 
  mp4 mpg4 m4a m4p m4b m4v sdv amc swa m3u m3url swf fpx fpix dv dif))
+;
print OK if "file.wav" =~ $re;
[download]