use strict;
use warnings;

my $s = '          Aggregate:    f3050-184-160:EmptyAggr';
my ($first, $rest) = split /:/, $s, 2;
print "$first\n";
print "$rest\n";

__END__
          Aggregate
    f3050-184-160:EmptyAggr