use File::Glob qw(:globally :nocase);

for ($input{"searchtype"} {
	if (/bid/ | /quot/ | /ezd/) {
		@dir = bsd_glob("$dir*");
	}
	else {
	@dir = $dir
	}