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

$file = shift @ARGV;


open (FH,  "/usr/bin/strings $file |") || die "Whoooops:  $!\n";


$i = 1;
while (<FH>) {
    chomp();
    $save = $_;
    print "FOUND:  $save"  if (/^(.*)(\d+)\.(\d+)\./);

    s/ //g;
    s/[\W]//g;
   


    
    $size = length ($_); 
    print "\n\n----------------------------------\n$file:\n" if ($i-- == 1) ;

    print "$save\n" if ($size > 6); 
}

close (FH);

