perl -e 'binmode( STDOUT, ":utf8" ); print "\x{00A1}\n";' |
  perl -e 'use utf8;
    binmode(STDIN,":utf8");
    $x=<>;
    $x=~s/[\r\n+]//;
    use bytes;
    print length($x),$/;'