$_=[q]1another7Perl213Just3hacker49]=~m]\d|\D*]g],
$$_[0]={grep/\d|rewinddir/,@$_},print"@$_{1..4}\n"
[download]

Perl with those dreaded pseudo-thingies required. Not too old, not too new.