in reply to counting leading white spaces

    $linecopy=$originalLine; 
    $linecopy=~ s/^\s+//;   # remove leading spaces
    $length = length(originalLine)-length($linecopy);

[download]

In Section Seekers of Perl Wisdom