use strict;
use warnings;

my $url = "http://someserver/some/file.avi";

my @quicktime_ext = qw(
.sdp .rtsp .rts .mov .qt .smi .sml .smil .avi .vfw 
.flc.fli .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 ($ext) = grep {$url =~ /$_$/i} @quicktime_ext and print "ok\n";
print "Extension is $ext" if ($ext);