@files = <*>;


foreach my $file (@files) {
    
    # loeschen wenn Datei vor 14 Tagen das letzte mal...
    
    # modifiziert
    unlink($file) if -M $file >= 14;
    
    # darauf zugegriffen
    # unlink($file) if -A $file >= 14;
    
}