Select Code to Download

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)/e
+ig;
BEGIN { sub insert { my $name = shift; return "value 8, value 9, value
+ 10"; } }' *.html

  s/
    (?<=                  # Look back-group
...
   /
     the text you want to insert
   /ixg;