~/ $ banner Just another Perl hacker | ./unbanner.pl 
JustanotherPerlhacker

##</code><code>##

#!/usr/bin/perl

use strict;

my @alphabet=("a".."z");
push @alphabet , ("A".."Z");
my $index=0;
my $output="";
my %letter;
my $spaces=0;
while (<DATA>){
    if (/^\s*$/){
        $letter{$output}=$alphabet[$index];
        $index++;
        $output="";
        $spaces++;
    }
    else {
        $output .= $_;
    }
}
my @output;
@output = <STDIN>;
my $char="";
for my $line (@output){
    if ($line =~/^\s*$/){
            print $letter{$char};
            $char="";
            $spaces++;
    }
    else {
        $char .= $line;
    }
}
print "\n";
__DATA__
                                          ######## 
                                      ################ 
                                    #################### 
                                  ########################             ##### 
                                 ##########################          ########## 
                                ############################        ############# 
                               ##############################       ############## 
                               #########            #########       ############### 
                              ########                ########       ############## 
                              #######                  #######         ####   ###### 
                              ######                    ######                 ##### 
                              ######                    ######                  #### 
                              ######                    ######                  #### 
                               #####