sub EmoticonSubst { ... # 몇몇 곳에 [^A-z] 를 추가한다. $txt =~ s/\s\^[oO_\-]*\^[;]*/$e2/g; $txt =~ s/\s-[_]+-[;]*/$e7/g; $txt =~ s/\so\.O[^A-z]/$e5/g; $txt =~ s/\s\*\.\*/$e5/g; $txt =~ s/\s\=\.\=[;]*/$e7/g; $txt =~ s/\s\:-[sS][^A-z]/$e7/g; $txt =~ s/\s\:[-]*D[^A-z]/$e2/g; $txt =~ s/\s\:[-]*\([^A-z]/$e3/g; $txt =~ s/\s\:[-]*\)[^A-z]/$e4/g; $txt =~ s/\s\:[-]*[oO][^A-z]/$e5/g; $txt =~ s/\s\:[-]*[pP][^A-z]/$e6/g; $txt =~ s/\s\;[-]*\)[^A-z]/$e8/g; } return $txt; }