#!/usr/bin/perl

use strict;
use warnings;

use XML::Atom::Feed;
use XML::Atom::Entry;

use Text::Wrap;

my $feed = XML::Atom::Feed->new("/home/arjen/atomfeed.xml");
foreach my $entry ($feed->entries()) {
    print "* ", $entry->title(), "\n";
    my $body = $entry->content()->body();
    $body =~ s/^\s*//g;
    $body =~ s/\s*^//g;
    print wrap('', '', $body), "\n\n";
}