What tells you that a line corresponds to a directory? The fact that it has a slash on the end of it? Here's a regular expression that will match such entries:

$line =~m#/$#;
[download]

But if you have such a marker of directories already, I'm not sure why you'd need to do what you're doing. If the existence and absence of a trailing slash isn't a reliable indicator of what's a directory (or even if you can't *assume* they are), then you'll have to go to the filesystem and use the -d filetest (see this node for more info on filetest operators).

HTH

Hi all, thanks for your replies. I was getting stuck on the the regx for the directory match. I also put in a check to see if the path is in fact a directory. The code below does what I was after.

open(TMP,'file.txt');

while($line = <TMP>) {
  
  chomp($line);
  next if $line =~ /^Total/;
  next if $line =~ /^\d+/;
  
  ($path) = split(/\s+/,$line);

  if (-d "$path") {
    if ($path =~ m!/$!) {
      $dir = (split /\//, $path)[-1];
      print "/$dir/=/$dir\n";
    }
  }
  
}

close(TMP);
[download]

Again, many thanks! Regards, Stacy.

Maybe you like this concise style:

open TMP, 'file.txt';

while( <TMP> ){
  chomp;
  next if /^Total/ or /^\d/;
  s/\s+//;
  
  if (-d and m!/$!){
     my $dir = (split !/!)[-1];
     print "/$dir/=/$dir\n";
  }
}

close TMP;
[download]

But of course, this is subject to taste.
"We are not alone"(FZ) Update: greenfox pointed out that I forgot the TMP in the while condition...

my $path = '/path/to/some/file.txt';
my $file = '/path/to/some/directory/';

my $dir;
for ($path, $file){
# if you know the dirs will always have a trailing slash 
# otherwise if (-d $_){ 
  if (m!/$!){    
    $dir = (split /\//)[-1];
  }
  else {
     # else its a file
  }
}
print $dir, "\n";
[download]

--
my $chainsaw = 'Perl';