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