I presume that this is actually the contents of a text file created by some sort of logging device and that you wish to parse out the (in the sample data case) 56% and 38% values for device 1, and place those into an excel file?

If that is the case, the second thing that you need is Spreadsheet::WriteExcel. I'll come back to the first thing you need soon.