system("perltidy $_") == 0
   ...