use strict;
use warnings;
 
my $filename = 'dirtest.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";
 
while (my $row = <$fh>) {
  chomp $row;
  next if $row =~ /.{20}\\[a-zA-Z]\s[\r\n]/;
  print "$row\n";
}

##</code><code>##

 Directory of D:\ \Q\X

09/20/2019  07:57 PM    <DIR>          .
09/20/2019  07:57 PM    <DIR>          ..