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

# Split into letters:
my @letters = split '', $word;

# Reverse them
my @srettel = reverse @letters;

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

##</code><code>##

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