#!/usr/bin/perl
use strict;
use warnings;
use Mojo::DOM;
use feature 'say';
my $derp = 'x' x 30000;
my $dom = Mojo::DOM->new('<?xml version="1.0"?><herp><derp>Test</derp></herp>');
say length ( $dom->at( 'derp' )->text );
$dom->at( 'derp' )->content( $derp );
say length ( $dom->at( 'derp' )->text );
#say $dom;