note
Bloodnok
TIMTOWTDI ... why not try ...
<c>
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @account = qw( 96329XY 7776fc 334457yg 2233oop 000001 8877666b);
my @file = qw(8877666b.txt 2233oop.txt 334457yg.txt 7776fc.txt 96329XY_K.txt);
my $ac_re = join '|', grep /^\d+/, @account;
print join "\n", grep /$ac_re/, @file;
</c>
or similar ?
<p>
Just a (nother) thought :-)
<p>
<div class="pmsig"><div class="pmsig-264639">
A user level that continues to overstate my experience :-))
</div></div>
1102555
1102555