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

##</code><code>##

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