I can open the file correctly(I think), but how do I read the .txt one line at a time? Here is my open code.

#!/usr/bin/env perl 
# 
if ($#ARGV != 0) { 
 print "What Filename?\n"; 
 exit; 
 } 
$filename = $ARGV[0]; 
 
 
$dir="/****/****/*****/****/*****.txt"; 
  open (DIR1, $dir); 
 
   my @lines=(); 
   my $line=(); 
   my $file=(); 
 
while ($direct = <DIR1>) { 
 
 @lines = `cd $direct ls -l | grep $filename`; 
   foreach $line (@lines) { 
   $lines =~ /\s+(\S+)$/; 
   $file =$1; 
   print "Found $file in $direct"; 
         } 
       } 
close DIR1;

#!/usr/bin/perl 
 
# Script to get a list of directories from the given file and 
# search them for a file whose name exactly matches 
# the 2nd program argument. 
 
use strict; 
use warnings; 
 
use File::Find; 
 
my $inputFile = $ARGV[0]; 
my $matchName = $ARGV[1]; 
die "usage: $0 <input-file>" unless $inputFile and $matchName; 
 
open (my $in, "<", $inputFile) or die "Can't open $inputFile for reading"; 
while (my $dir = <$in>) { 
    chomp($dir); 
    unless (-d $dir ) { 
        warn "$dir does not exist. Skipping..."; 
        next; 
    } 
    # $_ has the base filename, $File::Find::name has the full pathname of the current file. 
    # Note: You could easily have the sub {} populate a list 
    # of matching filenames for post processing if you need 
    # to do more than just print the names. 
    find( sub {print $File::Find::name, "\n" if $_ eq $matchName}, ($dir)); 
} 
close $in

die "usage: $0 <input-file>" unless $inputFile and $matchName;

unless $inputFile and $matchName;

 chomp($dir);