my @quicktime_ext = qw(sdp rtsp rts mov qt smi sml smil avi vfw flcfli wav bwf aiff aif aifc cdda au snd ulw mid midi smf kar qcp sd2 amr gsm mpeg meg m2s m1v ma1 m75 m15 mpm mpv mpa 3gp 3gpp 3g2 3gp2 mp4 mpg4 m4a m4p m4b m4v sdv amc swa m3u m3url swf fpx fpix dv dif);

my $re_quicktime  = '\.(' . join ('|', @quicktime_ext) . ')$';
$re_quicktime = qr/$re_quicktime/i;

print "OK" if "file.wav" =~ $re_quicktime;