if ($dir =~m|$sequser{$seq}| ){