while (<$FH>) { 
  print; # prints the current line using $_ implicitly
}

##</code><code>##

while ( my $filename = readdir(DH) ) {
  next if $filename eq '.' or $filename eq '..';
  print $filename;
  if ( -f $filename ) {
    open my $FH, '<', $filename or die "open: $!\n";
    while ( my $line = <$FH> ) {
      print $line; 
    }
    close FH or die "close: $!\n";
  }    
}

##</code><code>##

if ( -f 'The Bravery-Believe.txt' ) {
  # do something
}

##</code><code>##

my $wanted = 'The Bravery-Believe.txt';

while ( my $filename = readdir(DH) ) {
  
  next unless $filename eq $wanted;
   
  # do something . . . 
    
}