Help for this page

Select Code to Download

Select or download this

my $x = "123";
alias substr($x, 1, 1) = $x;
print $x;