use strict;
use warnings;

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

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