$0=substr("meowoof",4^/d/,++A[$0])