Select Code to Download

#!/usr/bin/perl -w
use strict;
...
M3_output_ZGZ22_1_20061022_duration_200mn_comptage_60.txt
M3_output_ZGZ22_078902_20051022_duration_200mn_comptage_60.txt
M3_output_ZGZ22_128_20061022_duration_200mn_comptage_60.txt

Output:
$VAR1 = [
...
          'M3_output_ZGZ22_078902_20051022_duration_200mn_comptage_60.
+txt',
          'M3_output_ZGZ22_078902_20061022_duration_200mn_comptage_60.
+txt'
        ];