The position of the first non-space character is the same as the number of (space) characters preceding it. So:

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

or if you're allergic to line endings:

print length [$line =~ m/^(\s*)/]->[0];
[download]