Select Code to Download

use Text::ParseWords;
$str = "a       b               c";
...
print scalar @f, "\n";
@f = parse_line('\t', 0, $str);
print scalar @f, "\n";

[root@localhost root]# perl temp.pl
4
4