my $page = $q->param('page');
if (!(defined($page)) || ($page =~ /\W/)) {
	$page = 'home';
	$q->param('page', $page);
}

##</code><code>##

if ($page =~ tr/A-Za-z0-9//dc) {
	$page = 'home';
}