use strict;
use warnings;

my $Tne_Word = 'antidisestablishmentarianism';
my @splitted_word = split(//, $Tne_Word);

{
  local $"='';
  print @splitted_word, "\n";
}