The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#! perl
use strict;
our $VERSION = "1.04";
our $name = "Channelate";
our $pattern =
qr{ <div \s+ class="comic-table" > \s*
<div \s+ id="comic" > \s*
<span \s+ class="comic-(?: tall | wide | square )" > \s*
<img \s+
src="(?<url>https?://www.channelate.com/wp-content/uploads/\d+/\d+/
(?<image>.+?\.\w+))" \s+
alt="(?<alt>.*?)" \s+
title="(?<title>.*?)"
}sx;
# Important: Return the package name!
__PACKAGE__;