From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#! perl
use strict;
our $VERSION = "0.01";
sub register {
shift->SUPER::register
( { name => "VG Cats",
pat =>
qr{ <img \s+
src="(?<url>images/(?<image>.*?\.\w+))" \s+
width="\d+" \s+
height="\d+"
}six,
} );
}
# Important: Return the package name!
__PACKAGE__;