do{{push@_,chop;redo if length};@_}
do{while($£=chop){push@_,$£};@_}