Regex of Review_Rating from ^\d+$ to ^\d{1,2}$ line 152 : replace : Review_Rating => $_, Review_Validated => 'Yes'})} (1..5); with Review_Rating => $_, Review_Validated => 'Yes'})} (1..10); line 156 : replace : Review_Rating => $_, Review_Validated => 'Yes'})} (1..5); with Review_Rating => $_, Review_Validated => 'Yes'})} (1..10); line 160 : replace : for (1..5) { with for (1..10) { line 276 : replace : unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 5)) { with unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { line 421 : replace : unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 5)) { with unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { line 276 : replace : # Make sure we have a valid rating. unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { return { error => Links::language ('REVIEW_RATING', $input->{Review_Rating})}; } with : # Make sure we have a valid rating. unless (($input->{Review_Rating} =~ /^\d{1,2}$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { return { error => Links::language ('REVIEW_RATING', $input->{Review_Rating})}; } line 421 : replace : # Make sure we have a valid rating. unless (($input->{Review_Rating} =~ /^\d$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { return { error => Links::language ('REVIEW_RATING', $input->{Review_Rating})}; } with : # Make sure we have a valid rating. unless (($input->{Review_Rating} =~ /^\d{1,2}$/) and ($input->{Review_Rating} >= 1) and ($input->{Review_Rating} <= 10)) { return { error => Links::language ('REVIEW_RATING', $input->{Review_Rating})}; }