deverías hacer un bucle, que valla uno por uno verificando (mediante una simple expresión regular) si el archivo empieza con X, si es posirivo que lo borre, sino que siga con el siguiente archivo...Te improviso un código
Código:
opendir...
my @files = readdir...
closedir...
foreach my $file (@files){
if ($file =~ /SYSTEMA/){
unlink ($file);
}
}
Con ese simple script eliminarás todos los archivos que tengan la palabra SYSTEMA, para más info sobre expresiones regulares checeka la sección de tutoriales de
www.perlenespanol.com
Espero que te sirva
Saludos