$in = <STDIN>;
print(length($in), $/);