my @tops = `/bin/grep -i "top-" filename | /usr/bin/awk '(print $3)'`;

##</code><code>##

my @tops;
open FILE, "<filename" or die "could not open filename";
while ( <FILE> )
{
	if ( m/^top \- (\d{2}:\d{2}:\d{2})/ )
	{
		push @tops, $1;
	}
}
close FILE;