use warnings;
use strict;

my @svcArray;
while (<DATA>) {
    chomp;
    push @svcArray, (split /:/, $_, 3)[2];
}

my $i = 1;
for (@svcArray) {
    print "$i. $_\n";
    $i++;
}

__DATA__
HR:1453:Recruitment:Up
FS:2355:Payments:Down
RS:4555:Retail:Up
LD:682111:Legal:Up

##</code><code>##

1. Recruitment:Up
2. Payments:Down
3. Retail:Up
4. Legal:Up