Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
} @string;

say for @sorted;

#!/usr/bin/perl
use warnings;
use strict;
...
    my ($year, $number) = split /-/, $s;
    return $year . sprintf '-%03d', $number;
}