Select Code to Download

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

[ ]
[[]
...

[123]
[123]