sub test : lvalue { $buffer };

print length test;
10000000

print substr test, 0, 10;
xxxxxxxxxx

substr( test, 3, 3 ) = 'ABC';

print substr test, 0, 10;
xxxABCxxxx

print length test;
10000000