Select Code to Download

for my $file (glob '*.mp4') {
    if ($file =~ /^[^0-9]*([0-9]+)[^0-9]*.mp4/) {
...
        die "No number found in $file."
    }
}