#!/usr/athena/bin/perl

@news = `webfetch.pl http://www.yahoo.com/headlines/news/`;
for (@news){
	if($in){
		if(/^Archives:/){
			$in = 0;
			next;
		}
		next if /^$/;
		print ":$_";
	}
	$in = 1 if /^Headlines/;
}