$line = "\n";
print(length($line), "\n");
$line =~ s/\s+$//;
print(length($s), "\n");