> In scalar context, returns the number of fields found and splits
> into the @_ array. Use of split in scalar context is deprecated,
> however, because it clobbers your subroutine arguments.

my $len = @_ = split /\n/, $source; # @_ への代入を explicit にしただけ

>>554
use warnings で出る。