#! /usr/bin/perl

open FILE, "</etc/pocserv/dispatch/profile" or die $!;

my @rics = <FILE>;

foreach (@rics) {
	chomp($_);

		my @ELEMS = split(/\s*:\s*/, $_);

	print "$ELEMS[2] : $ELEMS[3]\n";



}




close (FILE);
