chomp,s#\B#length$`eq length$'&&print"$` $'\n"#egfor<>