print "Geben Sie einen Satz ein:\n";

my $string;
{
    local $/;
    $string = <STDIN>;
}

print "------------------------------------------\n";
print "Es wurden soviele Ziffern eingegeben:";
print( scalar grep { $_ ne "\n" } split "", $string );
print "\n";

print "Es wurden soviele Zeilen eingegeben:";
print( scalar split "\n", $string );
print "\n";

print "Es wurden so viele Worte eingegeben:";
print( scalar split " ", $string );
print "\n";

print "Alle eingegebenen worte sind:\n";
print join "\n", split " ", $string;