When you're building $line you can replace the concatenation operators and ' marks by using qq:

$line = qq("$data{title}","$data{album}","$data{artist}","$data{songSt
+ationN­ame}","$data{coverArt}"\n);
[download]

The documentation is here: Quote and Quote like Operators