Select Code to Download

echo -n 'a…b' | perl -pe 's@(.).(.)@$1$2@';

echo -n 'a…b' | perl -pe 'use utf8; s@(.).(.)@$1$2@';
echo -n 'a…b' | perl -pe 'utf8::encode($_); s@(.).(.)@$1$2@';
echo -n 'a…b' | perl -pe 'utf8::upgrade($_); s@(.).(.)@$1$2@';
echo -n 'a…b' | perl -pe 'use Encode qw(decode encode); $_ = encode("u
+tf-8", $_); s@(.).(.)@$1$2@';
echo -n 'a…b' | perl -pe 'use Encode qw(decode encode); $_ = encode("u
+tf8", $_); s@(.).(.)@$1$2@';

echo -n 'a…b' | perl -pe 'use encoding 'utf8', Filter => 1; s@(.).(.)@
+$1$2@';