in reply to Read a variable backwards..

$ perl -E '$string="esrever"; say join("",reverse(split(//,$string)));
+'
reverse

[download]
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom