#!/usr/bin/perl
use strict;

my @foo=`emerge -pve world`;
my $muh;

my $bit;
foreach my $blah (@foo) {
        if ($blah =~ /groff/) { $bit = 1; }
                if (($blah =~ /\]\s(\w+\-\w+\/(\w+|\+)\-(\w|\.|\-)+)/ ) && $bit) { 
                $muh = $muh." =$1";
        }
}
print "$muh\n";