$ echo -n 'print-s pop,$/' > golf
$ perl golf golf
14