Select Code to Download

use strict;
...
}

print "Line is '$line'\n";

use strict;
...
$line = join('"', @sections) . '"';

print "Line is '$line'\n";

Line is 'file="path/goes/here"'
Line is 'file="xxxx/xxxx/xxxx"'