while ($my_file =~ /(input type=\"checkbox\".*?\.(\w+)\[0\]\")/sg) {

my $sub = $1;
my $sub1 = $2;

$my_file =~ s/\Q$sub\E/\Q$sub\E id=\"$sub1\"/;