print "Enter the filename\n";
$filename=<STDIN>;
print "Enter the identifier:\n";
$ident=<STDIN>; 
chomp($ident);
open FIN, $filename or warn("$filename $!");
open FOUT, ">result.xls" or warn ("result.xls $i");
while($line= <FIN>)
{
               if($line=~/$ident/)
	       { 		
		   @flds = split(/\s+/, $line);
		   $number= @flds;		
		   		   for($j=0;$j<=$number;$j++)
		                     {
	            		       print FOUT $flds[$j], "\n";
		                     }

                    print FOUT "*************NEXT ENTRY*****************", "\n";  
		}
}

print $ident;
print "LOG ANALYSIS FOUND IN FILE RESULT.XLS! \n";
close FIN;
close FOUT;