open (DATA, "< C:/Perl_Scripts/InputFile.txt");

##</code><code>##

open my $DATA, '<', 'C:/Perl_Scripts/InputFile.txt' or die "Cannot open 'C:/Perl_Scripts/InputFile.txt' because: $!";

##</code><code>##

my @array_of_data = <DATA>;
close (DATA);

foreach my $line (@array_of_data)
{

##</code><code>##

while ( my $line = <$DATA> ) {

##</code><code>##

if ( $line =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\.csv$/g )

{
      print "Match $1";
}