# split tab
$var1="asd  zxc ggg";
@arr1=split(/\t/, $var1);
print "@arr1\n";