map{print@s[glob];@s=/^|./g}<>