use strict;
my $str = '{"en": "Male", "es": "Macho"},
{"en": "Female", "es": "Hembra"},
{"en":"Population","es":"Población"},
{"en": "% of total population", "es": "% de la población total"},
{"en": "All cancers", "es": "Todos los cánceres"},
{"en": "All cancers but C44", "es": "Todos los cánceres pero C44"},
{"en": "Number of cases", "es": "Numero de casos"},
{"en": "Age Group", "es": "Grupo de edad"},
{"en": "Year", "es": "Año"},
{"en": "years", "es": "años"},
{"en": "years old", "es": "años"},
{"en": "Age-standardized incidence rate per", "es": "Tasa de incidencia estandarizada por edad por"},
{"en": "Cumulative incidence risk (percent)", "es": "Riesgo de incidencia acumulada (porcentaje)"},
{"en": "cancer sites", "es": "sitios de cáncer"},
{"en": "Time trend analysis need at least 2 years data", "es": "El análisis de tendencia temporal necesita al menos 2 años de datos"},
{"en": "Age at diagnosis", "es": "Edad al diagnóstico"},
{"en": "Estimated annual percentage change", "es": "Cambio porcentual anual estimado"},
{"en": "Regional registries", "es": "Registros regionales"}';
my $regex = qr/{\"en\": {0,1}(\".+), {0,1}\"\w\w\": {0,1}(\".+\")},{0,1}/mp;
my $subst = '\\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