Script Detail 

• LWP to fetch each page

unless (defined ($page = get $url)) { ... }

• XML::LibXML to parse the page

$dom = $parser->parse_html_string($page);

• puts all the content into one large data structure

# find the grade
if ($contents{'Grade'} =~ m{ \A Beginner }xms) {
    $data->{$area_name}{$track_num}{grade} = 'Beginner';
}