#!/usr/bin/perl

use encoding "utf8";
print "This program should output 1 1 1.\n",
      "If it fails, it outputs 3 2 1 or something completely different.\n";
while(<DATA>) {
    s/[\x0a\x0d]+//gso;
    print length($_), "\n";
}

__DATA__
製
ä
a