This isn't even a job for a Perl script.

find . -type f -a -mtime +2 to find the files. grep -v "blahblah" to strip out the ones you want to ignore, and xargs rm to do the final nuking. All in one line now...

find . -type f -a -mtime +2 | grep -v "blahblah" | xargs rm

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";