my $decision = ( $input =~ /[^\s\w.,:;'"/?!~`-]/ ) ? "not okay" : "okay";
print $decision;