Select Code to Download

>c:\progs\perl560\bin\perl -wle"$s = sub { my @rv = $_[0] =~ /^([0-9]+
+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print $s"
...
>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.

>c:\progs\perl560\bin\perl -wle"@a = sub { my @rv = $_[0] =~ /^([0-9]+
+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print @a"
...

>c:\progs\perl588\bin\perl -wle"@a = sub { my @rv = $_[0] =~ /^([0-9]+
+)$/; retur
n @rv[0 .. $#rv]; }->('abc'); print @a"