Select Code to Download

use strict;
use warnings;
...

my ($ext) = grep {$url =~ /$_$/i} @quicktime_ext and print "ok\n";
print "Extension is $ext" if ($ext);