#!/usr/bin/perl
local $/ = "---------------";
while( <DATA> ) {
  next if /^\S*$/;
  my ( $n, $u, $c );
  ( $n ) = /Name:\s+(.*)$/mi;
  ( $u ) = /username:\s+(.*)$/mi; 
  ( $c ) = /cuid:\s+(.*)$/mi;
  $n ||= 'EMPTY';
  $u ||= 'EMPTY';
  $c ||= 'EMPTY';
  print "$u:$n:$c\n";
}
__DATA__
---------------
Name: Tim Brown
username: txbro27
cuid: twbrown
---------------
Name: Dean Walker
username: dxwalk3
---------------
username: jxrizzo
Name: John Rizzo
---------------
Name: Doreen Mirlass
username: mirlasd
---------------
cuid: chamblem
Name: Mike Chambless
username: mblem
---------------
name: Tim McCarthy
username: txmccar
cuid: tmmccar
---------------