my $num_leading_tabs = length( (/^(\t*)/)[0] );