$ perl -Mstrict -Mwarnings -E '
> my $word = q{Constantinople};
> my $drow = reverse $word;
> say $drow;'
elponitnatsnoC
$