http://qs321.pair.com?node_id=1069497


in reply to Read a variable backwards..

$ perl -E '$string="esrever"; say join("",reverse(split(//,$string))); +' reverse
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."