use strict;
use warnings;

my $zahl = 2;
my $i    = 1;
my $q    = 1;

while ($q ne $zahl) {
    $q = $i * $i;
    $i = (($q + $zahl)/$i)/2;
    print "$i\n";
}
printf("\n\$zahl:%6d\n\$i:        %.18f\n\$q float:  %.18f\n\$q string: %s\n",
    $zahl, $i, $q, $q
);

print "Wurzel von $zahl ist $i.\n\n";