# Ala
my $region_start = $-[0];
my $region_length = $+[0] - $-[0];
my $OriginalLine = $1;
...

substr $Template, $region_start, $region_length, $ReplacementString;