#!/usr/bin/perl
##########################       PERL UTILITY      ###########################
#  [ Copyight Cyber-TA 2006 SRI International ]
#  Say some legal crap here for the evil lawyers
##############################################################################
# use strict;
use  File::Basename;
use File::stat;
use File::Copy;
use Cwd;

open (ALL, "<list.txt"); 

while (<ALL>) {
    s/\.\///g;
    $file = $_; 
    ($dir, $f) = split (/\//); 
    open (FH,  "/usr/bin/strings $file |") || die "Whoooops:  $!\n";
    $i = 1;
    open (OUT, ">$dir/strings");
    while (<FH>) {
        chomp();
        $save = $_;
        print "FOUND:  $save\n"  if (/^(.*)(\d+)\.(\d+)\./);
    
        s/ //g;
        s/[\W]//g;
        
        $size = length ($_); 
        print "\n\n----------------------------------\n$file:\n" if ($i-- == 1) ;   
        print OUT "$save\n" if ($size > 6); 
    }
    close (OUT);
}
close (ALL);
close (FH);

