Select Code to Download

unless (    (!($args =~ /\-rs(\s+)(\S+)/)) 
         && (!($args =~ /\-p(\s+)(\S+)/)) 
...
         or $args =~ /\-p(\s+)(\S+)/  
         or $args =~ /\-P(\s+)(\S+)/     ) 
   {....

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s (qw(p X)) {
...
"
for 'p' case A
for 'X' case B