1 2 3 4 5 6 7 8 9
#!@PERL@ # Convert ASCII to correct Unicode quotes based on context while (<>) { s#(?<![-\{])---(?![-\}])#—#g; s#(?<![-\{])--(?![-\}])#–#g; s#\.\.\.#…#g; print; }