Help for this page

Select Code to Download

Select or download this
```
$line =~ m/^(\s*)/;
print length $1;
```

Select or download this

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