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__
[download]

Abigail