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