d:\exp>perl -MO=Deparse,-p -e"if (! $args =~ /\-rs(\s+)(\S+)/ && ! $args =~ /\-p(\s+)(\S+)/ && ! $args =~ /\-P(\s+)(\S+)/){1}"

if (((((!$args) =~ /\-rs(\s+)(\S+)/) and ((!$args) =~ /\-p(\s+)(\S+)/)) and ((!$args) =~ /\-P(\s+)(\S+)/))) {
    '???';
}
-e syntax OK