$string =~ /^(\t*)/;
$number_of_initial_tabs=length($1);