#!/usr/local/bin/perl
#
# Ф /usr/local/bin/jperl ѤǤʤȤ

# ܸ wc (UNIX ޥ(1993.7 pp163)ΰ)
# SANO Hiroshi
#
while(<>) {
# ƬϢ³Ʊʸ
  while (($mb = s/^([\200-\377].)+//) || s/^([\0-\177].)+//) {
    $c += $mb ? length($&) / 2 : length($&);
  }
  $l++;
  if( eof) {
    print "$l line(s) $c char(s)\n";
  }
}
#
# End of File
