my $validchars = 'A-Za-z0-9_.-';
if ( $site =~ /^([$validchars]+)$/o ) {
    $site = $1;
}else{
    warn "Invalid site: $site\n";
    next;
}