$ perl -MO=Deparse -e 'print ((split /:/,<FILEHANDLE>)[3])'
print((split(/:/, <FILEHANDLE>, 0))[3]);
-e syntax OK

$ perl -MO=Deparse -e 'print +(split /:/,<FILEHANDLE>)[3]'
print((split(/:/, <FILEHANDLE>, 0))[3]);
-e syntax OK