$words{join"",reverse split//}=$_