if ($searchtext =~ /^\/.*\/\w+$/) {
	$searchtext =~ s#^\s+/|/\s+$|/\w+\s+$#/#g;
} else {
	$searchtext =~ s/([\\\+\$\^])/\\$1/g;
	$searchtext =~ s/\*/\\w\*/g;
	$searchtext = '/' . $searchtext . '/i';
}

foreach (sort {$a <=> $b} grep $searchtext, grep !/^#/, <STUFF>) {