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