perl -pi.bak -e 's/(?<=weak<INPUT TYPE=radio NAME=(\w{2}\d\w{2}) VALUE=\d>(?:<INPUT TYPE=radio NAME=\1VALUE=\d>){6})(?=strong)/insert($1)/eig;
BEGIN { sub insert { my $name = shift; return "value 8, value 9, value 10"; } }' *.html