#!/usr/bin/perl
use LWP::Simple;
use Date::Format;
use DateTime::Format::Strptime;
 
my $maxpage = 901
my $strp = new DateTime::Format::Strptime(pattern => "%b %d %Y",on_error=>'croak');
my $strf = new DateTime::Format::Strptime(pattern => "%Y-%m-%d",on_error=>'croak');
 
 
for (my $i = 1; $i <=$maxpage; $i++){
    my $url = "http://w...content-available-to-author-only...r.com/projects/597507018/pebble-e-paper-watch-for-iphone-and-android/backers?page=$i";
    my $content = get $url;
    die "Couldn't get $url" unless defined $content;
 
    while($content =~ m/<div class="date">([^<]*)/g){
        $date=$1;
        if($date =~ m/^\d/){
            my @dt = localtime(time);
 
            print strftime("%Y-%m-%d\n",@dt);
        }
        else{
            my $formatted =  $strp->parse_datetime("$date 2012");
            print $strf->format_datetime($formatted)."\n";
        }
    }
}