sub rating { my CLASS_NAME $self = shift; my ($forced) = shift || 0; if($forced) { my $parser = $self->_parser(FORCED); while(my $tag = $parser->get_tag('b')) { #changed from MAIN_TAG to b last if $parser->get_text =~ /user rating/i; } my $tag = $parser->get_tag('b'); my $text = $parser->get_trimmed_text('b', 'br/'); #changed from a to br/ my($rating, $val) = $text =~ m!(\d+\.?\d+)\/.*?\((\d+\,?\d+)\s.*?\)!; $val =~ s/\,// if $val; $self->{_rating} = [$rating, $val]; } return wantarray ? @{ $self->{_rating} } : $self->{_rating}[0]; }