" I know I could do it by using a hash instead but that seems like overkill." Define overkill please.

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 %quicktime_ext = map { $_, 1 } @quicktime_ext;

(my $ext = $url) =~ s/.+(\..+)$/$1/;

$quicktime_ext{$ext} and print "ok"
[download]