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

##</code><code>##

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