Считывание пути из файла

#!/usr/bin/perl
 
use strict;
#Открываем файл в переменную file
open(my $file,"1.ism") or die("Error open 1.ism");
#записываем файл в массив str, чтобы бегать построчно
my @str = <$file>;
my $len = @str;
my @arr;
my $i=0;
while($str[$i] !~ /"ISDynamicFile"/)
{
        #Здесь ставите одну проверку и получаете конфетку
        if($str[$i] =~ /SVDIRMAC/)
        {
                  $str[$i] =~ /<row><td>(\w+)<\/td>/;
                  push @arr, $1   if($1 && $1 !~ /\n/ && $1 !~ /\r/ && $1 !~ / /);
        }
        $i++;
}
 
close $file;
my $l = @arr;
my $y=0;
open (my $road,"> pach.txt");
for(my $y=0;$y<$l;$y++)
{
        open(my $f,"1.txt");
        my @path=<$f>;
        my $count = @path;
        for(my $e=$i;$e<$count;$e++)
        {
                if($path[$e] =~ /\\$arr[$y]\\/i)
                {
                        $path[$e] =~ /gt;(.*?)</;
                         print $road $1, "\n";
                }
        }
        close $f;
}
 
close $road;
 
#Удаляем повторяющиеся пути
my %lines;
open(my $in,"pach.txt");
open(my $out,"> final.txt");
foreach (<$in>) {$lines{$_} = $_}
print $out keys %lines;
close $in;
close $out;
 
unlink("pach.txt");

while($str[$i] !~ /"ISDynamicFile"/)
{
        #Здесь ставите одну проверку и получаете конфетку
        if($str[$i] =~ /SVDIRMAC/)
        {
                  #Здесь меняем <row> на </td> и получаем наше Bsm
                  $str[$i] =~ /<\/td><td>(\w+)<\/td>/;
                  push @arr, $1   if($1 && $1 !~ /\n/ && $1 !~ /\r/ && $1 !~ / /);
        }
        $i++;
}

open(my $file,"> file.xml");
print $file $data;
close $file;

#!/usr/bin/perl -w
use strict;
 
# CPAN-Perl-реализация библиотеки 
# libxml2 - [url]http://xmlsoft.org/[/url]
use XML::LibXML;
 
# исходный XML-файл-проект приложения InstallShield
my $ism_file = "rel.ism"; 
 
my $doc = XML::LibXML->new()->parse_file( $ism_file ); #ошибки обрабатывются внутри parse_file
 
# собрать в список ключевые слова, извлекаемые из каждого ряда <tr> из третьего по счёту тэга <td>,
# если во втором тэге <td> присутствует слово 'SVDIRMAC'
 
my @keywords
    =   map  { $_->findnodes('./td[3]')->to_literal }
        grep { $_->findnodes('./td[2]')->to_literal eq 'SVDIRMAC' }
        $doc->findnodes('//table[@name="Directory"]/row');
 
# из каждого ряда <tr> извлечь искомый путь из второго тэга <td>, если в первом тэге <td>
# присутствует в виде префикса ключевое слово из списка @keywords и
# распечатать
 
for my $row ( $doc->findnodes('//table[@name="ISDynamicFile"]/row') ) {
 
    my $td1
        = $row->findnodes('./td[1]')->to_literal; # содержимое 1-го <td>
    my ($td2)
        = $row->findnodes('./td[2]')->to_literal =~ / (\\ .+)\z /x; # 2-го          
    
    map  { print $td2, v10 }
    grep {  $td1 =~ m/ \A $_ /x }
    @keywords;
}