Select Code to Download

perl -w -e'; @a=(split / /,"1 2 3 4 5")[1,2,1]; print "{",(join ",",@a
+),"}\n";'

perl -e'$x="1 2 3 4 5"; @a=($x=~/\d+/g)[1,2,1]; print "{",(join ",",@a
+),"}\n";'