print join':', map{ $_ eq '' ? 'NULL' : $_} split ':', 'root:XXXXXXXXXXXXX:12103::::::',-1;

root:XXXXXXXXXXXXX:12103:NULL:NULL:NULL:NULL:NULL:NULL