1 2 3 4 5 6 7 8 9 10 11
#!@PERL@ # Convert ASCII to correct Unicode quotes based on context while (<>) { s#(?<!\s)'(?!\s)#’#g; s#(?<!\s)'(?=\s)#’#g; s#(?<=\s)'(?!\s)#‘#g; s#(?<=\s)"(?!\s)#“#g; s#(?<!\s)"(?=\s)#”#g; print; }