my $file = "$ENV{JBOSS_HOME}/log/wrapper.log";
open IN, "<$file" or die "Cannot open $file:$!\n";
while (<IN>) {
    chomp;
    next if ($_ !~ /$find/);
    next if ($_ !~ /$date/);
    push @array, $_;
}