file = "D:/perl/02.log";

##</code><code>##

open (FH, "<", $file) or die "cant open file";

##</code><code>##

if (/2 failed/)