$file= "SYSB_A31.GROUPINS%RDEBLIST%REAPPLY%2008.12.16.20.31.35.pdf";
if ($file =~ /^SYS[\w.]+%[\w.]+%[\w.]+%[0-9.]+.pdf/)
{print "yes"}
else
{print "no"}
#prints yes