for f in *.ttx; do n=$(sed -n 's/^ *<Weight value="\(.*\)"\/> *$/\1/p' < "$f"); perl -i -0pe "s/Regular\n    <\/namerecord>/${n}\n    <\/namerecord>/gms" "$f"; done