@result=split(/:/,<FILEHANDLE>);
print $result[3];

##</code><code>##

split(/:/,<FILEHANDLE>)[3]