Select Code to Download

perl -wle'sub {"foo"}->(), $s = sub { my @rv = $_[0] =~ /^([0-9]+)$/; 
+return @rv[0 .. $#rv]; }->("abc"); print $s'