# @array evaluated in scalar context.
my $count = @array;

##</code><code>##

# The s/// operates on $copy.
(my $copy = $str) =~ s/\\/\\\\/g;

##</code><code>##

# Prints $x.
print($x = $y);

##</code><code>##

# @array evaluated in list context.
my @copy = @array;

##</code><code>##

# @array evaluated in list context.
my ($first) = @array;

##</code><code>##

# Only dies if f() returns an empty list.
# This does not die if f() returns a
# false scalar like zero or undef.
my ($x) = f() or die;

##</code><code>##

my $count = () = f();

##</code><code>##

# Prints @x.
print(@x = @y);