#!/Perl/bin/perl

use strict;
use warnings;
use FileHandle;
use Data::Dumper qw/Dumper/;
use Web::Scraper;

my $content = q~
<p class="x" style="right">text1</p>
<p class="x" style="">text2</p>
~;

#p[@class='x' && not(@style)]
my $parser      = scraper {
	#process '//p[@class="x" and not(@style)]', "items[]" => {
	process '//p[@class="x" and @style=""]', "items[]" => {
		style => '@style',
		text => 'TEXT',
	};
};

my $result = $parser->scrape( $content );
print Dumper $result;