if ( $subject !~ /^[a-zA-Z1-9.]+$/ ) {