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;