Select Code to Download

sub test {
    my @rv = $_[0] =~ /^([0-9]+)$/;
    print "<<@rv>>\n";
    return @rv[ 0 .. $#rv ];
}

<<>>
[[]
...
[123]
<<123>>
[123]

sub test {
    my @rv = $_[0] =~ /^([0-9]+)$/;
...
    return wantarray? @rv: $rv[-1];
}

michael$ perl t.pl
<<>>
...
[123]
<<123>>
[123]