The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#! perl
use strict;
our $VERSION = "1.02";
our $name = "CTRL+ALT+DEL";
our $pattern =
qr{ <img \s+
class="comic-display" \s+
src="(?<url>https?://(?:.*\.)?cad-comic\.com/
wp-content/uploads/\d+/\d+/
(?<image>.*?\.\w+))" \s+
}xs;
# Important: Return the package name!
__PACKAGE__;