$ perl -e 'print system("some thing|more")."\n"'