my $opts = $ARGV[0]; die "never trust user input" unless $opts=~/^[msixpodualn]+$/; ...