Select Code to Download

## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END" -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"

        my ($NL,$SKIP) = ($STATIC{NL},$STATIC{SKIP});
        if ($STATIC{CHAR_NL} eq "NL"){ 
            $NL = "\n";
...
        }else{
            $SKIP = "$STATIC{CMD_SKIP}$NL";
        }

        my( $NL, $SKIP ) = optionize_nl_skip( \%STATIC );

use strict;
use warnings;
use Test::More qw/ no_plan /;;
...
    }
    return( $NL, $SKIP );
}

##  SUB SENDMAIL  ###  DOES: generates and sends e-mail to all recipie
+nts with attached csv report  ##################

$TEMP[0] =~ s/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[
+0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)://;

            {
                my( $commands, $matches ) ;
                ( $_, $commands, $matches ) = sanitize_and_then_some_c
+ommands_matches(
...
                $DATA{$IP}->{COMMANDS} = $commands;
                $DATA{$IP}->{MATCHES} = $matches;
            }

     $ALL_CAPS_HERE constants only (beware clashes with perl vars!)
    $Some_Caps_Here package-wide global/static
    $no_caps_here function scope my() or local() variables