my @fnames = grep { /f(oo|u|)[0-9]{2}\.txt/ } glob("*");