$line =~ m/^(\s*)/;
print length $1;