#!/opt/local/bin/perl
use strict;
use warnings;
use WebService::Google::Reader;

my $user = 'your.mail.address@gmail.com';
my $password = 'y0urPassw0rd';

# Login
my $reader = WebService::Google::Reader->new(
	username => $user,
	password => $password,
);

die "Couldn't establish connection to Google Server. Try later." if(! $reader);

my @ngws = qw(AD: PR: ヘッドラインニュース 去年の今日はどんな記事 イラレ修行 トクモード);	# NG Feed Titles
my $feed = $reader->unread(count => 10000);
my @entries = $feed->entries;

# Change Status
foreach my $entry (@entries) {
	foreach my $ng (@ngws) {
		if ($entry->title =~ /$ng/) {
			print $entry->title, "\n";
			$reader->state_entry($entry,'read')
		}
	}
}