>perl -wMstrict -le
"my $s = qq{\t\t\tX\t\t};
 my $n =()= $s =~ m{ \G \t }xmsg;
 print $n;
"
3