open(RTF_FILE, "file");
while(<RTF_FILE>){   
   $document.=$_; 
}
                
$document =~ s/SURNAME/$surname/ ;
....
....

print $document ;