use strict;
my $str = '\'<?php echo L10n::message(\'dialog.delete\', L10n::label(MODULE)); ?>\'
\'<?php echo L10n::message(\'dialog.delete\', L10n::label(\'client\', true)); ?>\'
\'<?php echo L10n::message(\'dialog.delete\', array(\'module\' => L10n::label(\'frequency\'))); ?>\'
\'<?php echo L10n::message(\'dialog.delete\', L10n::label(\'file\')); ?>\'
\'<?php echo L10n::message(\'dialog.delete\', L10n::label(\'image\')); ?>\'';
my $regex = qr/(')(\<\?php echo L10n\:\:message\('dialog.delete', )(L10n\:\:label\()(.*?)(\); \?\>)(')/mp;
my $subst = '\'\\<\\?php echo $3$4; \\?\\>\' + \' : \' + $1$2\'\'\\)\\; \\?\\>\'';
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