Вот этот вариант:
всё без ошибок как-бы, но output файла после выполнения программы не вижу
#!/usr/bin/perl
use Modern::Perl;
use Readonly;
use File::Slurper qw( read_text write_text );
Readonly my $STR => "foo-bar-baz-foo-bar";
Readonly my $OFFSET => 10;
Readonly my $INFILE => "/home/in-black/input.txt";
Readonly my $OUTFILE => "/home/in-black/output.txt";
my @insertions = split( m/\n/, read_text($INFILE) );
my $result = '';
for my $insertion ( @insertions ) {
$result .= substr($STR, 0, $OFFSET). $insertion. substr($STR, $OFFSET). "\n";
}
$ awk '{print "45788-4rbf"$0"-77458-ik-90-98"}' IN.txt > OUT.txt
Спасибо, очень благодарен!