my $result = function_under_test();
   my $expected = "ciao a tutti";

##</code><code>##

   is($result, $expected, "strings are equal");

##</code><code>##

   my @result = split //, $result;
   my @expected = split //, $expected;
   is(scalar(@result), scalar(@expected), "length match");
   for (my $i = 0; $i < @expected; ++$i) {
      is($result[$i], $expected[$i], "$i-th char match");
   }