#!/usr/local/bin/perl

$fullsource = '';
open (MYFILE, 'danosource.txt');
while (<MYFILE>)
{
	chomp;
	$fullsource .= "$_\n";
}
close (MYFILE);

@classes = $fullsource =~ m/<a href="javascript:__doPostBack\('DataGridSummary\$_ctl[0-9]*\$_ctl0',''\)">([^<]+)<\/a><[^>]+><[^>]+>[^0-9<]+([0-9.]*) *([A-F\-+]*)/g;

$i = 0;
foreach $var (@classes)
{
	if ($i == 0)
	{
		print "$var \t";
	}
	elsif ($i == 1)
	{
		print $var;
	}
	else
	{
		print " (".$var.")\n";
		$i = -1;
	}
	$i++;
}