undef ( $/ ) ; # отключаю разделение потока. По-умолчанию делится на звенья по символу '\n'.

my $str = <> ; # читаю входной поток

 

while ( <DATA> ) { # читаю дополнительные данные из программного файла

    next unless m{      # разбираю дополнительные данные. Эквивалентно: chomp ( $_ ) ; split ( /\t+/os , $_ , 2 ) ;

        ^       # начало каждой строки

        (.*?)       # любой набор символов до символа '\t', запомнить в

        \t+     # набор символов '\t' в количестве >= 1

        ([^\r\n]+)  # набор символов '\r' и '\n' в количестве >= 1, запомнить в

    }osx ;

    my ( $rx , $expr ) = ( qr()is , ) ;    # представить как регулярное выражение, - выражение для подстановки как строка.

    $str =~ s{$rx}{$expr}egex ; # провести замену в $str. Двойной флаг "e" указывает на то, что строку подстановки следует представлять как выполняемый код.

}

 

print ( $str ) ; # вывод результата в STDOUT

 

# в результате произведутся последовательные преобразования исходной строки с помощью перечисленных регулярных выражений и строк для подстановки.

 

__DATA__

п(.).+?(л)   . . . . . substr( $' , 0, 1 )

к           $& . 'у' . $& . 'уш' . $& . 'а'

perl test.pl test.txt

#!/usr/bin/env perl

 

use strict;

use warnings;

 

my (@conv_table, $x);

 

open(my $in,  "<",  "Pas2Cp.txt")  or die "Can't open file with definitions!";

while (<$in>) {

    chomp;

    my ($expr, $repl) = split /\t/;

    push(@conv_table, [$expr, $repl]);

}

close $in or die "$in: $!";

 

while (<>) {

    chomp;

    my $line = $_;

    $line =~ s/\/\/(.*)$/(* *)/ig;

    $line =~ s/$([0-9A-F]+?)\b/0H/ig;

    $line =~ s/\#(\d+?)\b/0X/ig;

    $line =~ s/\barray\s*\[(.+?)\]/ARRAY /ig;

    $line =~ s/\^([A-Za-z_]+)/POINTER TO /ig;

    $line =~ s/Result\s*:=\s*([^;]+?)/result := /ig;

    $line =~ s/FreeMem\((.+)\)/ := NIL/ig;

    $line =~ s/Dispose\((.+)\)/ := NIL/ig;

    foreach (@conv_table) {

        $line =~ s/$$_[0]/$$_[1]/ig;

        #~ eval "$line =~ s/$$_[0]/" . $$_[1] . "/ig";  # эта строка приводит к ошибкам

    }

    print "$line\n";

}

          foreach (@conv_table) {

              eval "$line =~ s/$$_[0]/" . $$_[1] . "/ig";

          }

    foreach (@conv_table) {

        $line =~ s/$$_[0]/$$_[1]/ig;

    }