$ perl -wle 'print +(split /#/, "a#b")[1];'
b
[download]

You can also use undef where you don't want variable names:

my (undef, $a) = split ...
[download]