在Perl中，切割字符串很简单。

my ($k, $v) = split(/\t/, $string);

但如果数据中含有不止一个分隔符\t呢，比如这样：

a\tb\tc

此时，需要给spilit第三个参数，一个正整数，表示至多分为多少组。比如我们想只使用第1个分隔符，切分为2部分，则输入2。

my($first, $rest) = split(/\t/, $string, 2);