Select Code to Download

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

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