How to write multiline text to a file using perl script?

Question

Perl

There is a text file in which it is necessary to write the text (multiline) after a certain line.

Answer 1

As an option:

#!/usr/bin/perl

    $string="string";
     
    open($fh, "data1.txt");     
    open($fh2,"data2.txt");
    
    while ($row = <$fh>) {
    chomp $row;
    
  if ($row =~ /$string/ ) {
      print $string."\n";
     while ($row2 = <$fh2>) {
        chomp $row2;	      
        print $row2."\n"; 
        }
    } else {
      print $row."\n";}
    
    }