Help for this page

Select Code to Download

Select or download this

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