$bar3 = join "\t", split //, $bar3;