if( not 0
   || $args =~ /\-rs(\s+)(\S+)/x
#  || $args =~ /\-? (\s+)(\S+)/x
   || $args =~ /\-p (\s+)(\S+)/x
   || $args =~ /\-P (\s+)(\S+)/x
   ){ ... }