open ( $fh, "< $path_to_file");
binmode($fh);
my @log = <$fh>;
my $line;
while ($line = pop @log) {
	last if ($line =~ /^.*\ -\ line I'm looking for$/);
}