Help for this page

Select Code to Download

Select or download this

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