open my $fh => "$tempDir/nbssbaseblds.txt" or die "Open failed: $!\n"; while (<$fh>) { my @parts = split m :/: => (split m /:/) [0]; # Split into path names. if ($parts [-1] =~ /^\w+\.bld$/) # Match on file name. ... whatever ... # $parts [-3] eq "acn" last; } }