in reply to ^M chars in output file
perl -pi -e 'tr[\r][]d' file [download]
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});