Select Code to Download

sub countLeadingTabSpaces {
    my($data) = @_;
...
}

countLeadingTabSpaces("\t\t!\tfoo"); # prints "3" but only has two lea
+ding tabs!

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