If you had expected this to do validation:

$line = $_;
$line=~m%(\d+).*%;
[download]

... then you would be mistaken. You could try this instead:

($line) = /(\d+)/  or next;
[download]

    -- Chip Salzenberg, Free-Floating Agent of Chaos