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

$my_file =~ s/$1/$1 label="$2"/s;

};