$ perl -le"print(1),2"
1