# for extracting data from the YAPC::NA 2006 schedule
# wget -O monday http://yapcchicago.org/the-schedule/monday
# pugs yapc_schedule.pl monday

grammar yapc_schedule;

rule schedule { <title> [ <talk> ]+ }

token title { <'<title>'> .+? <'</title>'> }

regex ws { .*? }

token talk { <'<small>'> <speaker> <'</small>'> }

token speaker { [\w|\s|,]+ }

### extract.pl
use v6-alpha;

module Main;

my $content = slurp @*ARGS[0];

my $match = $content ~~ m/<schedule>/;

say $match.perl;