#!/usr/bin/perl use strict; use Web::Scraper; use URI; use YAML; my $stuff = URI->new("http://www.jp.playstation.com/store/"); my $scraper = scraper { process "#Sinfo p a", 'news[]' => { link => '@href', title => 'TEXT' }; }; my $result = $scraper->scrape($stuff); print YAML::Dump $result;