#! /usr/bin/perl

$ibuchstaben=0;
$iword=0;
$bwort=0;
$inewlines=0;

while(defined($c=getc STDIN))
{
print $c;

if($c eq "\n")
{
++$inewlines;
if($bwort == 1)
{
$bwort=0;
++$iword;
}
}
elsif($c eq " ")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq ".")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
}
elsif($c eq ",")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq "?")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq "!")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
else
{
++$ibuchstaben;
$bwort=1;
}
}
print $ibuchstaben;
print "\n";
print $iword;
print "\n";
print $inewlines;