Try

$bar3 =~ s/(.)(?!\z)/$1\t/g;
[download]

i.e. for every character except the last one (-> (?!\z)), replace it with itself plus a tab.

(What your substitution would do is remove a trailing tab.)