#! perl -slw
use strict;

sub modify (\$) {
    our $data;
    local *data = $_[ 0 ];

    $data =~ s[this][that]g;
    return;
}

my $string = 'this & that;' x 10000;

modify $string;

print substr $string, 0, 24;