#!/usr/bin/perl -w
use strict;

$^=@_=split//,$_="\nrekcaH lreP rehtonA tsuJ";$_=&{sub{%_=map{++$/=>$_
}split'',pop;\%_}}($_);_:$/='!@_';$/=~s^.{3}^%s^;$^&&goto$'.sprintf(''
.'_',printf$/,${$_}{$^--});