my @lines = map { /:\s*(.*)/ ? $1 : () } @array;
[download]

Of course, Tie::File is totally useless here. You can use

my @lines = map { /:\s*(.*)/ ? $1 : () } <$fh>;
[download]