This:

    $tparse=split(/-/,$current);
[download]

Should be:

    @tparse=split(/-/,$current);
[download]

Since, in the line after the split, you are trying to access $tparse['2'], it's clear that you meant to split to an array. You attempted to split to a scalar. When you're done, $tparse will be a scalar set to the number of items that the split produced.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.