Hey

@lineTokens = split(/(.*)<(.*)=(.*)"(.*)>(.*)/, $lines[$l]);
[download]

I dont think it works fine, because see the below cases
1.   when <a href> tag appears at last point of ur $line[$1] then this pattern match fails. I think i am right
2.   if it does not match all the patterns use /g at last of pattern matching command.

split(/(.*)<(.*)=(.*)"(.*)>(.*)/g
[download]

3.   why cant u go for pattern match little bit easier to handle.
--prasanna.k