BEGIN{FS=OFS=RS=_}{for(;j%3||j=$++i;$i>"*"&&(c=gsub(/\*/,_,s))&&$i+=c)s=substr($0,++j*41+i-83,3)}i