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

You should verify that open worked correctly:

open my $DATA, '<', 'C:/Perl_Scripts/InputFile.txt' or die "Cannot ope
+n 'C:/Perl_Scripts/InputFile.txt' because: $!";
[download]

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

foreach my $line (@array_of_data)
{
[download]

There is no need to read the entire file into memory first:

while ( my $line = <$DATA> ) {
[download]

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

{
      print "Match $1";
}
[download]

The pattern is anchored at the end of the line so the /g option is superfluous.    You are not using capturing parentheses in the pattern so there is nothing in $1 to print out.