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