Select Code to Download

#!/usr/bin/perl
use strict;
...

print "** $title:\n";
print "$html\n";

#!/usr/bin/perl
use warnings;
...
        my $rainaverage = @data ? ($raintotal / @data) : undef;
        print "$region: $rainaverage\n";
}

#!/usr/bin/perl
use warnings;
...
);

print $_->as_trimmed_text,"\n" for @cells;

PENINSULA
GULF COUNTRY
...
WIDE BAY and BURNETT
SOUTHEAST COAST
CORAL SEA

# All directories in our parent's path
%dirs = map { /^.*\/(.*)/ => $_ } grep {-d} glob "../*";

# De-crapper (for use after Word HTML idiocy)
my $file = join '',<>;
...
$file =~ s/<\/?span.*?>//gms;

print $file;

# Password generator
my @chars = ('.','!','#','@','$','/',0..9,'A'..'Z','a'..'z');
my $length = 8 + rand 4;
my $pw = join '', @chars[ map { rand @chars } (1..$length)];

# Java namestyle to SQL namestyle regex
s/(?<!^)([A-Z]+)/_\L$1\E/g;

# Environment dumper
while (my @set = each %ENV) {printf "%s=>%s\n",@set}