Select Code to Download

  print xlen("(\x{5fcd}\x{65e0}\x{53ef}\x{5fcd})"), "\n" ; ;

...
    while ($s =~ m/[\x{5000}-\x{6FFF}]/g) { $l++ ; } ;
    return $l ;
  } ;

  print ylen("(\x{5fcd}\x{65e0}\x{53ef}\x{5fcd})"), "\n" ; ;

...
    my ($s) = @_ ;
    return length($s) + ($s =~ tr/[\x{5000}-\x{6FFF}]//) ;
  } ;