#! /usr/bin/perl

$xziffern = 0;
$xzeilen = 0;
print "Geben Sie einen Satz ein:\n";

while(defined($y=getc STDIN)) {

$xziffern += 1;

if ($y eq "\n") {
   ($xziffern -= 1)
}
if ($y eq "\n") {
   ($xzeilen += 1)
}
}

print "------------------------------------------\n";
print "Es wurden soviele Ziffern eingegeben:$xziffern\n";
print "Es wurden soviele Zeilen eingegeben:$xzeilen\n";