some other way to do funny translation

$ echo \'\' | perl -pne "s{@{[chr(0x27)]}}{chr(0x22)}eg"
""
$ echo -ne "''\n'\n''\n" | perl -pne "s{@{[chr(0x27)]}}{chr(0x22)}eg"
""
"
""
$

Posted via email from purl's posterous