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

##</code><code>##

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("utf-8", $_); s@(.).(.)@$1$2@';
echo -n 'a…b' | perl -pe 'use Encode qw(decode encode); $_ = encode("utf8", $_); s@(.).(.)@$1$2@';

##</code><code>##

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