segv.pl

use strict;
use warnings;
use Encode qw(find_encoding);

my $foo = 'a' x 100000;

for (1..10000) {
    $foo .= 'a' x 10;
}

$foo = undef;

find_encoding('utf8')->decode($foo);