NR==1{split($0,a,_);RS=_}{while(sub("_",a[i++]));}NR>1