use strict;
my $str = '```json
[
{
"Place": {
"Name": "Les Catacombes de Paris",
"Google_place_id": "ChIJVXealLU_xkcRja_At0z9AGY",
"City": "Paris",
"Region": "Île-de-France",
"Country": "France",
"Cultural_type": "Historical",
"Facts": {
"Historical_facts": {
"FACT_TYPE": "Did you know ?",
"FACTS": [
"Les Catacombes de Paris ont été créées à la fin du 18ème siècle pour résoudre le problème de surpeuplement des cimetières de la ville."
],
"INTERACTION": [
"Savez-vous pourquoi les catacombes ont été construites ?"
],
"CATEGORY": "Historical_facts"
},
"Architectural_facts": {
"FACT_TYPE": "Fun fact",
"FACTS": [
"Les catacombes sont faites d’anciens tunnels de carrières transformés pour stocker les ossements de plus de six millions de Parisiens."
],
"INTERACTION": [
"Combien de personnes pensez-vous que les catacombes peuvent contenir ?"
],
"CATEGORY": "Architectural_facts"
},
"Scientific_facts": {
"FACT_TYPE": "Wow",
"FACTS": [
"Les conditions dans les catacombes, qui sont fraîches et humides, permettent une bonne conservation des ossements."
],
"INTERACTION": [
"Que pensez-vous que l\'humidité fait aux ossements ?"
],
"CATEGORY": "Scientific_facts"
},
"Mystery_legends_facts": {
"FACT_TYPE": "Did you know ?",
"FACTS": [
"Une légende urbaine raconte qu’il y a un cinéma secret dans les catacombes !",
"Il paraîtrait que des groupes se réunissent ici pour regarder des films."
],
"INTERACTION": [
"Aimeriez-vous visiter un cinéma caché ?",
"Quel genre de film pensez-vous qu’ils projettent là-bas ?"
],
"CATEGORY": "Mystery_legends_facts"
}
}
}
}
]
```';
my $regex = qr/Json(?<json_output>[\s\S\d\D\w\W]*)/mp;
if ( $str =~ /$regex/g ) {
print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
# print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
# print "Capture Group 2 is $2 ... and so on\n";
}
# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}
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