*a = \"cons";
$a = "something";
print "$a\n";
__END__
Modification of a read-only value attempted at - line 2.

##</code><code>##

(undef, *a) = \(undef, "cons");
$a = "something";
print "$a\n";
__END__
something

##</code><code>##

(undef, *a) = (\undef, \"cons");
$a = "something";
print "$a\n";
__END__
Modification of a read-only value attempted at - line 2.