Update: or $var_cdrcellsplit = do { my @f = split(...) };
or $var_cdrcellsplit = () = split(//, $var_cdrcellname, -1)
They are not equivalent. And you also may expect that leaving the -1 off doesn't make a difference. However, try to guess the output of the following program:
#!/usr/bin/perl
use strict;
use warnings;
my $str = "foobar";
my $c1 = do {my @f = split // => $str};
my $c2 = () = split // => $str => -1;
my $c3 = () = split // => $str;
print "$c1 $c2 $c3\n";
__END__
Answer after the <readmore> tag.
Abigail