use strict;
my $str = '<h3 id="title" class="mb-0 mt-0"><?php echo L10n::icon(\'camera\'); ?><?php echo L10n::message(\'label.add\', L10n::label(\'camera\')); ?></h3>
<h3 id="title" class="mb-0 mt-0"><?php echo L10n::icon(\'bookmark\'); ?><?php echo L10n::message(\'label.add\', L10n::label(\'bookmark\')); ?></h3>
<h3 id="title" class="mb-0 mt-0"><?php echo L10n::icon(\'dashboard\'); ?><?php echo L10n::message(\'label.add\', L10n::label(\'dashboard\')); ?></h3>
<h3 id="title" class="mb-0 mt-0"><?php echo L10n::icon(\'dashboard\'); ?><?php echo L10n::message(\'label.edit\', L10n::label(\'dashboard\')); ?></h3>';
my $regex = qr/(\<h3 id=\"title\" class=\"mb-0 mt-0\"\>)(\<\?php echo L10n::icon\(')(.*?)('\); \?>)(\<\?php echo L10n::message\('label.)(.*?)(', )(L10n::label\()(.*?)(\); \?>)(\<\/h3>)/mp;
my $subst = '$1$2$3$4<?php echo L10n::label($7)$8$9';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html