$ perl -m-File::Find::Rule -e "foreach (0..93) {print File::Find::Rule->new->file->in(qq(/.mnt.$_))}" $ perl -MO=Deparse -m-File::Find::Rule -e "foreach (0..93) {print File::Find::Rule->new->file->in(qq(/.mnt.$_))}" use File::Find::Rule (); foreach $_ (0 .. 93) { print 'File::Find::Rule'->new->file->in("/.mnt.$_"); } -e syntax OK