@curr = split(/|/,$_);