#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

open(my $readHandle, '<', "File.txt") or die "Failed\n";

print "Start Read\n";

foreach my $line (<$readHandle>) {

    print "Read Line\n";
    print "Found!\n" if ($line =~ /MatchingText/);
}
        
close $readHandle;