#!/usr/bin/env perl

use strict;
use warnings;

use 5.020;

my $size = 8;
my $s    = 'C' x $size;

use Test::LeakTrace;

leaktrace{
    $s =~ s/C/1/;
    $s =~ s/C/2/;
} -verbose;