Start your program with

local $/ = "\t::\t";
[download]

Then, when you use <FH>, it won't give you the next line but the next record, that us, up to the next occurance of "/t::/t". Then, within your while loop, your $_ is now something like (if "\n::\n" is the field separator)

uname
::
categ
::
title
::
locat
::
$desc
etc.
[download]

Then, just split that bad boy into individual fields like you do in your second code sample and you'll be set.

HTH.