#!/usr/bin/perl

use strict;
use warnings;

     print "searching using regexp...";
	 
open(my $in,  "<",  "DirectX.log")  or die "Can't open DirectX.log: $!";
     
#while (<$in>) { # assigns each line in turn to $_
#   print "Just read in this line: $_";
#}

if ($in =~ /eroare/) {
	print "found eroare\n";
}

close $in or die "$in: $!";