#!/usr/bin/perl

bu("a:b:c:d");

sub bu {
   local $" = '], [';

   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), "[@_]\n";
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), "[@_]\n";
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), "[@_]\n";
} ## end sub bu
__END__
scalar: 4
4[a], [b], [c], [d]
scalar: 1
1[@]
scalar: 1
1[�]

##</code><code>##

Use of implicit split to @_ is deprecated at ksose2.pl line 8.
Use of implicit split to @_ is deprecated at ksose2.pl line 10.
Use of implicit split to @_ is deprecated at ksose2.pl line 12.

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

sub first {
   local $" = '], [';
   print "first\n";

   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
}

sub second {
   local $" = '], [';
   my $x;
   print "second\n";

   $x = shift;
   print "scalar: ", scalar(split(/:/, $x)), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift;
   print "scalar: ", scalar(split(/:/, $x)), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift;
   print "scalar: ", scalar(split(/:/, $x)), "\n";
   print scalar(@_), " item(s): [@_]\n";
}

sub third {
   local $" = '], [';
   my $x;
   print "third\n";

   $x = shift; @_ = ($x);
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift; @_ = ($x);
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift; @_ = ($x);
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
}

sub fourth {
   local $" = '], [';
   my $x;
   print "fourth\n";

   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift; @_ = ($x);
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
   $x = shift; @_ = ($x);
   print "scalar: ", scalar(split(/:/, $_[0])), "\n";
   print scalar(@_), " item(s): [@_]\n";
}

first('w:x:y:z');
second('w:x:y:z');
third('w:x:y:z');
fourth('w:x:y:z');
__END__
Use of implicit split to @_ is deprecated at ksose.pl line 9.
Use of implicit split to @_ is deprecated at ksose.pl line 11.
Use of implicit split to @_ is deprecated at ksose.pl line 13.
Use of implicit split to @_ is deprecated at ksose.pl line 23.
Use of implicit split to @_ is deprecated at ksose.pl line 26.
Use of implicit split to @_ is deprecated at ksose.pl line 29.
Use of implicit split to @_ is deprecated at ksose.pl line 39.
Use of implicit split to @_ is deprecated at ksose.pl line 42.
Use of implicit split to @_ is deprecated at ksose.pl line 45.
Use of implicit split to @_ is deprecated at ksose.pl line 54.
Use of implicit split to @_ is deprecated at ksose.pl line 57.
Use of implicit split to @_ is deprecated at ksose.pl line 60.
first
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [&#65533;]
scalar: 1
1 item(s): [x]
second
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [w]
scalar: 1
1 item(s): [w]
third
scalar: 2
2 item(s): [8&#65533;y], [z]
scalar: 1
1 item(s): [&#65533;(y]
scalar: 1
1 item(s): [&#65533;&#65533;y]
fourth
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [0]
scalar: 1
1 item(s): [@]

##</code><code>##

scalar(@_ = split(/:/, $_[0]))

##</code><code>##

first
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [w]
scalar: 1
1 item(s): [w]
second
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [w]
scalar: 1
1 item(s): [w]
third
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [w]
scalar: 1
1 item(s): [w]
fourth
scalar: 4
4 item(s): [w], [x], [y], [z]
scalar: 1
1 item(s): [w]
scalar: 1
1 item(s): [w]