$0=$NF-$sub(/./,_)