perl -pe 's/;/";"/g; s/";"/;"/; s/"$//' input > output
[download]

The first substitution wraps each semicolon in double quotes. The second one removes the double quotes before the first semicolon, the third one removes the last double quote.

To copy the file, you can also use Path::Tiny's copy or File::Copy's copy or cp.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]