my $string = "\n";
print length $string, "\n";