Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
            
            /$months{$2}\\$1\\$3/xg;
print $string;