if ($filename =~ m{\Q$p\E\.png}) { # is PNG