my $numberofLeadingTabs = 0;
if ($data =~ /^(\t+)/) {
    my $tabs = $1;
    $numberofLeadingTabs = length $tabs;
};