[Perl Tk] ASCII Art 0.1

#!usr/bin/perl
#ASCII Art 0.1
#Version Tk
#Coded By Doddy H
#Thanks to : reLlene,MARKO,explorer

use Tk;
use Tk::Dialog;
use List::Util "max";

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my %letras = (

    a => "         
   @   
   @   
  @ @  
  @ @  
 @   @ 
 @   @ 
 @@@@@ 
@     @
@     @
",

    b => "
 @@@@ 
 @   @
 @   @
 @   @
 @@@@ 
 @   @
 @   @
 @   @
 @@@@ 
",

    c => "
  @@@@ 
 @    @
 @     
 @     
 @     
 @     
 @     
 @    @
  @@@@ 
",

    d => "
 @@@@  
 @   @ 
 @    @
 @    @
 @    @
 @    @
 @    @
 @   @ 
 @@@@  
",

    e => "
 @@@@@
 @    
 @    
 @    
 @@@@ 
 @    
 @    
 @    
 @@@@@
",
    f => "
 @@@@@
 @    
 @    
 @    
 @@@@ 
 @    
 @    
 @    
 @    
",
    g => "
  @@@@ 
 @    @
 @     
 @     
 @  @@@
 @    @
 @    @
 @   @@
  @@@ @
",
    h => "
 @    @
 @    @
 @    @
 @    @
 @@@@@@
 @    @
 @    @
 @    @
 @    @
",
    i => "
 @
 @
 @
 @
 @
 @
 @
 @
 @
",
    j => "
   @
   @
   @
   @
   @
   @
@  @
@  @
 @@ 
",
    k => "
 @   @ 
 @  @  
 @ @   
 @@    
 @@    
 @ @   
 @  @  
 @   @ 
 @    @
",
    l => "
 @    
 @    
 @    
 @    
 @    
 @    
 @    
 @    
 @@@@@
",
    m => "
 @     @
 @     @
 @@   @@
 @@   @@
 @ @ @ @
 @ @ @ @
 @  @  @
 @  @  @
 @     @
",
    n => "
 @    @
 @@   @
 @@   @
 @ @  @
 @ @  @
 @  @ @
 @   @@
 @   @@
 @    @
",
    o => "
  @@@@ 
 @    @
 @    @
 @    @
 @    @
 @    @
 @    @
 @    @
  @@@@ 
",
    p => "
 @@@@@ 
 @    @
 @    @
 @    @
 @@@@@ 
 @     
 @     
 @     
 @     
",
    q => "
  @@@@ 
 @    @
 @    @
 @    @
 @    @
 @    @
 @  @ @
 @   @@
  @@@@ 
      @
",
    r => "
 @@@@@ 
 @    @
 @    @
 @    @
 @@@@@ 
 @    @
 @    @
 @    @
 @    @
",
    s => "
  @@@ 
 @   @
 @    
 @    
  @@@ 
     @
     @
 @   @
  @@@ 
",
    t => "
 @@@@@
   @  
   @  
   @  
   @  
   @  
   @  
   @  
   @  
",
    u => "
 @    @
 @    @
 @    @
 @    @
 @    @
 @    @
 @    @
 @    @
  @@@@ 
",
    v => "
@     @
@     @
 @   @ 
 @   @ 
 @   @ 
  @ @  
  @ @  
   @   
   @   
",
    W => "
@         @
@         @
 @   @   @ 
 @   @   @ 
 @   @   @ 
  @ @ @ @  
  @ @ @ @  
   @   @   
   @   @   
",
    x => "
@     @
@     @
 @   @ 
  @ @  
   @   
  @ @  
 @   @ 
@     @
@     @
",
    y => "
@     @
@     @
 @   @ 
  @ @  
   @   
   @   
   @   
   @   
   @   
",
    z => "
@@@@@@@
      @
     @ 
    @  
   @   
  @    
 @     
@      
@@@@@@@
"

);

my $color_fondo = "black";
my $color_texto = "green";

my $ven =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$ven->title("ASCII Art 0.1 || Written By Doddy H");
$ven->geometry("555x300+20+20");
$ven->resizable( 0, 0 );

my $fondo = $ven->Text(
    -width      => 75,
    -heigh      => 15,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 15, -y => 10 );
$ven->Label(
    -text       => "Text : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 250 );
my $tengo = $ven->Entry(
    -width      => 40,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 66, -y => 254 );
$ven->Button(
    -command          => \&now,
    -text             => "Now!",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 320, -y => 252 );
$ven->Button(
    -command          => \&about,
    -text             => "About",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 395, -y => 252 );
$ven->Button(
    -command          => \&exitnow,
    -text             => "Exit",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 470, -y => 252 );

MainLoop;

sub about {
    $ven->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnow {
    exit(1);
}

sub now {

    $fondo->delete( "0.1", "end" );

    my $now  = $tengo->get;
    my $code = artnow($now);

    $fondo->insert( "end", $code );

}

sub artnow {

    my $target = shift;

    my $fondo   = " ";
    my $espacio = 0;

    my $lugar;
    my @lotengo;

    my $tipox = $letras{"a"};
    my @lineas = split /\n/, $tipox;
    $altura = @lineas + 1;

    $anchura = max map { length $_ } @lineas;

    for ( 1 .. $altura ) {
        push @lotengo, $fondo x ( ( $anchura + $espacio ) * length $target );
    }

    for my $letra ( split //, $target ) {
        my @lineas = split /\n/, $letras{$letra};

        for my $i ( 0 .. $altura - 1 ) {
            ( my $plan = $lineas[$i] ) =~ s/ /$fondo/g;

            $plan = $fondo x $anchura if not $plan;

            substr( $lotengo[$i], $lugar, length $plan ) = $plan;
        }

        $lugar += $anchura + $espacio;
    }

    return ( join "\n", @lotengo );

}

#The End ?