grep to filter files based on modification date

---

examples/advanced-perl/grep_files.pl

#!/usr/bin/perl
use strict;
use warnings;

my @files = glob "*.xml";
my @old_files = grep { -M $_ > 365 } @files;
print join "\n", @old_files;