Help for this page
my $seq = $seq; # capture the intials ($seq) from $targetfile
if ($dir =~m|$sequser{$seq}| ){