If "one liner" wasn't a 100% necessary criteria, you could do it very easily with File::Find. In your callback subroutine, do a -f test and a -M test to see if the file in question matches your criteria for deletion (note, that's a modification time, not a creation time). Then use unlink to do the deed.

Be sure to open a logfile, and within your callback function print to the logfile to log the action.