>perl -le "@a = split(/\t/, """a\t"""); print scalar @a"
1

>perl -le "@a= """a\t""" =~ /(.*?)(?:\t|$)/g; print scalar @a"
2