$filename='flims.txt';
open(FILE,$filename) or die;

@names;
$i=0;
while($line = <FILE>){
$names[$i]=$line;
$i++;
}
close(FILE);

#print "$names[5]\n";

#$j=0;
#while($j <= $i){
#print "$names[$j]";
#$j++;
#}
#print "\n";

$j=0;
while($j <= $i){
if ($names[$j]=~/[0-9][0-9]\./){
     print "$names[$j]";
     }
$j++;
}
print "\n";
--
FROM 124.78.12.*