Select Code to Download

given ($_) {
    when (/filename\s*=\s*(\S+)/) {$file = basename($1)}
...
        delete $files{$file}
}
@batch = ();