if( $args !~ / (*FAIL)
   | \-rs(\s+)(\S+) 
#  | \-? (\s+)(\S+)
   | \-P (\s+)(\S+)
   | \-p (\s+)(\S+)
   /x ){ ... }