my $data = do {
  local $/;
  <STDIN>;
}; # do
print length($data);