#!/usr/local/bin/perl
use strict;
use warnings;

my $index;
my @command_array = <DATA>;
my @command_array_split;

print "@command_array";
for($index=0;$index<=$#command_array;$index++){
        my @command_array_split = push @command_array_split,(split(/:/,$command_array[$index]));

        }
print "Individual Elements\n\n";
print "$command_array_split[0]\n";
print "$command_array_split[1]\n";
print "$command_array_split[3]\n";

__DATA__
fault-reportin email:smtp-server 1.2.3.4 from me@here.com:recipient me1@here.com:recipient me2@here.com:recipient me3@here.com:recipient me4@here.com:enable