use strict;
use warnings;

print "\nEnter the Model 1\n";
my $Model_Name1= <STDIN>;
chomp $Model_Name1;

open (DATA, "< C:/Perl_Scripts/InputFile.txt"); 
my @array_of_data = <DATA>;
close (DATA);

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

{
      print "Match $1";
}
}