Как записать с помощью perl-скрипта многострочный текст в файл?

А как тут, в этом же скрипте, записать строки из data2.txt в data1.txt

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

Так можно написать?

Как записать с помощью perl-скрипта многострочный текст в файл?

Можно пару уточняющих вопросов? В файле data1.txt происходит замена. А data2;txt является источником для строк, которое будут вставляться?