First. Thanks @all for your replies and tips, seems i have to dig in a little deeper, Email::Date pushes me into the right direction.
I come back after i learned more.
Thank you!.

Update:

#!/usr/bin/perl -w
use strict;
foreach(<*>) { if (-M $_ > 660) { use File::Copy;copy("$_","/tmp/testd
+ir/") or die "Copy failed: $!";} }
[download]

I changed the requirement to older than 660 days thats close enough for now. Calculating with Dates is for another day.
Any comments are welcome.
/Update