It is much better to use multi-arg list form of system system(@args) than the single arg/stringified version system( "$arg[1] $arg[2] $arg[3] $arg[4]") as you avoid a lot of quoting issues. BTW you could do this with File::Find (as demonstrated already) or grep and glob

unlink $_ for grep { -f $_ and -M _ > 8 and m/\.std|^ULOG\./ } glob ( 
+"$dir/*" );
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print