print $_, $/ for @{[ split // => $bar ]};