my $articleHistoryContents = $response->content();
    for ($articleHistoryContents) {
        s/[\s\S]*?<ul id="pagehistory">//;
        s/<\/ul>[\s\S]*/<br>/;
        s/<\/li>[\s\S]*?<li>/<br>/g;
        s/<li>//g;
        ...
    }