use List::MoreUtils qw(all);

if (all { -r } glob '*file*') {
   ...
}