(The idea, not the parser.) This

70; my $lg
= 200; my $del = $lg - $sm; my $ret
= ''; foreach my $k (sort keys %kw_count) { $weight
= $tag_count{$kw} / $max_count; $font = sprintf ("%d", $sm +
$del * $weight); $url = '/blog/'; } print CLOUD "<a
href=\"$url\" style=\"font-size: $font%;\">$kw</a>\n"; } close CLOUD; You want to put
gore in the first time you've referred to your house?"
"...well, don't you have astoundingly little staying power. Just sayin'.