Select Code to Download

# Take a word
my $word = "Constantinople";
...

# Join back into a single word:
my $drow = join('', @srettel);

my $drow = join('', reverse split //, "Constantinople");