hi betterworld, thanks for the reply. I read the file as the following (read line by line). I didn't parse when I read it, but I check if the line match with pattern and put it in scalar.

 
open (INPUT, "<", $file) || die "File read error";
@line=<INPUT>;
close INPUT;
[download]

and do while loop as per above code.