use warnings;
use strict;

my %INDEX_PAGE = map {$_=>1} '/','/index.html';
my $HELP_PAGE = join '|', map {quotemeta} '/help.html';
$HELP_PAGE = qr/^(?:$HELP_PAGE)/;
my @line_entry = ('/help.html','/index.html','/help.html?ri=all');

for my $le (@line_entry) {
	if (exists $INDEX_PAGE{$le})
		{ print "$le is an index page\n" }
	elsif ($le=~$HELP_PAGE)
		{ print "$le is a help page\n" }
	else
		{ print "$le is unknown\n" }
}