Mine

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

my $black = "\033[30m";
my $red = "\033[31m";
my $blue = "\033[34m";
my $green = "\033[32m";
my $magenta = "\033[35m";

open CIN, "aptitude @ARGV |" 
    or die "can't open aptitude, failed $!";

while (<CIN>) {
    chomp;
    my ($status, $package, $description) = (/^(.{4})(.*)\s\-\s(.*)$/);
    print "$red$status $blue$package $green$description";
}

END {
    print $black;
}