use Devel::Peek 'Dump';
use strict;

my $a = "test";
substr($a, 0, 2) = '';
Dump $a;