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


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


>c:\progs\perl580\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"