>c:\progs\perl560\bin\perl -wle"$s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print $s"
Use of uninitialized value in print at -e line 1.


>c:\progs\perl561\bin\perl -wle"$s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print $s"
Use of uninitialized value in print at -e line 1.


>c:\progs\perl580\bin\perl -wle"$s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print $s"
Use of uninitialized value in print at -e line 1.


>c:\progs\perl588\bin\perl -wle"$s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print $s"
Use of uninitialized value in print at -e line 1.