#!/usr/bin/perl -w
use strict;

while(<DATA>){
    my ( $id, $dp, $ln, $fn, $nm ) = split /:/;
    print "$id $dp $ln $fn $nm\n";
}
__DATA__
011349786:200:Singer:Samuel:6