#!/usr/bin/perl
use 5.016;
use warnings;

# 1064933

my $name="guest";
my $id = 1;

$/ = "\n\n";

open(SOURCE, "<1064933.txt") or die "Can't open 1064933.txt, $!";
open(SINK, ">1064933OUT.txt") or die "Can't open 1064933OUT.txt, $!";
while (<SOURCE>) {
    if ( /start pattern/ .. /Endpattern/) {
        s/\$name/$name/;
        s/\$id/$id/;
        print SINK $_;
        next;
    }
}