#!/usr/bin/perl
use strict;
use warnings;
my $data = join '',<STDIN>;
my $bytes = length($data);