Select Code to Download

Select or download this
```
sub nl () { print "\n"; print "\n" }
```
Select or download this
```
sub nl () { print "\n\n" }
```
Select or download this
```
if ($units !~ m{(K|M)B}i ) {
```
Select or download this
```
if ($units !~ /[KM]B/i ) {
```

my @num = qx[du -B $units -d 1 $in_dir | cut -f 1];
my @dir = qx[du -B $units -d 1 $in_dir | cut -f 2];

Select or download this

if ($skip =~ m{,}) {
        @sks = split(',', "$skip");
...
        if ($dir[$i] =~ m{$skip}) {
            $num[$i] = 0 }}}
else { print "$skip is not a directory. Please ensure $skip is a dir i
+nside $in_dir." }

Select or download this

my @sks = split /,/, $skip;
for my $i ( 0 .. $#num ) {
...
            }
        }
    }

Select or download this

for (my $i = 0; $i < $in; $i++ ) {
    my $temp = $num[$i];
...
    $temp =~ s{ $}{}g;
    chomp $temp;
    push @dig, $temp }

Select or download this

$units =~ s/KB/kB/g;
for my $i ( @num ) {
...
    chomp $temp;
    push @dig, $temp;
    }

Select or download this
```
        $sum = $sum + $dig[$i];
```
Select or download this
```
        $sum += $dig[ $i ];
```
Select or download this
```
if ($skip !~ "" && $skip !~ m{,}) {
```

Select or download this

The empty pattern //
        If the PATTERN evaluates to the empty string, the
...
        match has previously succeeded, this will
        (silently) act instead as a genuine empty pattern
        (which will always match).

Select or download this
```
if ( length $skip && $skip !~ /,/ ) {
```
Select or download this
```
elsif ($si > 0) {
```
Select or download this
```
elsif ( @sks ) {
```