my $base64_image = encode_base64($buf);

my $text = do { local( @ARGV, $/ ) = "test_template.svg" ; <> } ;

$text =~ s/##([a-zA-Z0-9_\.]+)##/<TMPL_VAR name="$1">/g;

my $photo_count = 1;
while ($text =~ s/\Q$base64_image/<TMPL_VAR name="photo_$photo_count">/s){
	$photo_count++;
}