<oerjan> addquote <Taneb> English is a lie, words lack intrinsic meaning <int-e> fortunately people don\'t operate for long in a vacuum so there\'ll always be context

#!/usr/bin/perl
use Encode; binmode *$_,"encoding(utf8)" for STDIN,STDOUT; local$/; for (split//,<STDIN>) { rand(5)<3 and y/EOeo/\xc4\xc5\xe4\xe5/; print }