$_ =~ s/^\s+//g;
$y = length $_;
print "$_ $y\n";