CPAN::Groonga

##############################################################
# Modules

use WWW::Mechanize;
use JSON;

###########################################################################
# Variables

my $AM

on} =~ s! +! !g;
    }

    # The images
    my ($json) = $html =~ /var colorImages = ([^;]+);/si;
    if($json) {
        my $code = decode_json($json);
        my @order = grep {$_} $code->{initial}

##############################################################
# Modules

use WWW::Mechanize;
use JSON;

###########################################################################
# Variables

my $AM

th ));
        }
    }

    # The images
    my ($json) = $html =~ /var colorImages = ([^;]+);/si;
    if($json) {
        my $code = decode_json($json);
        my @order = grep {$_} $code->{initial}