Scalar assignment in scalar context returns its LHS (as an lvalue), as documented here.

It's very very common to take advantage of this.

while (defined( $_ = <> )) {
   ...
}
[download]

my $sock = IO::Socket::INET->new(...)
   or die(...);
[download]

( my $copy = $str ) =~ s/\\/\\\\/g;
[download]

etc.