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

#! perl
use strict;
our $VERSION = "1.01";
our $name = "Saturday Morning Breakfast Cereal";
our $pattern =
qr{ <div \s+ id="cc-comicbody"> \s*
<img \s+
title="(?<title>.*?)" \s+
src="(?:https?://www.smbc-comics.com)?(?<url>/comics/
(?<image>[^./]+\.\w+))" \s+
id="cc-comic" \s+
/>
}x;
# Important: Return the package name!
__PACKAGE__;