#!/usr/bin/perl -w

use Tk;

sub grab;
sub st;

my $me = MainWindow->new;
$menubar = $me -> Frame() -> pack('-side' => 'top','-fill' => 'x');
$filemenu = $menubar -> Menubutton('-text' =>'file') -> pack('-side' =
+>
'left');

$filemenu -> command(
-label   => 'help',
-command => sub{st;}
);
$filemenu->separator();
$filemenu->command('-label'=>'exit','-command'=>sub {exit});

$me->Button(-text => 'translate to 1337',
    -command => sub{grab;}
)->pack;

$text1 = $me->Text (-font=>'14','-width'=>40, '-height'=> 1
)->pack;

$me->Label(-text=> '1337 5p34k'
)->pack;

$text2 = $me->Text (-font=>'14','-width'=>40, '-height'=> 1
)->pack;

MainLoop;


sub grab
{
my $take = $text1->get('1.0','end');

        $take =~ s/you/joo/ig;
        $take =~ s/\b(own)/pwn/ig;
        $take =~ s/good/leet/ig;
        $take =~ s/great/leet/ig;
        $take =~ s/cool/dope/ig;
        $take =~ s/kill/frag/ig;
        $take =~ s/hack/hax/ig;
        $take =~ s/ing/xoring/ig;
        $take =~ s/stupid/nub/ig;
        $take =~ s/dumb/nub/ig;
        $take =~ s/soo+/uber/ig;
        $take =~ s/very/uber/ig;
        $take =~ s/beginner/nub/ig;
        $take =~ s/fear/phear/ig;

        $take =~ tr/aA/4/;
        $take =~ tr/oO/0/;
        $take =~ tr/Ee/3/;
        $take =~ tr/lL/1/;
        $take =~ tr/tT/7/;
        $take =~ tr/sS/5/;
        $take =~ tr/zZ/2/;

$text2->delete('1.0','end');
$text2->insert('1.0',"$take");
}

sub st
{
my $me2=MainWindow->new;
$me2->Label(-text=>'Created By: Narmak',
-font=>'20')->pack;
$me2->Label(-text=>'1337 5p34k Visual Version 1.0',
-font=>'20')->pack;
}
[download]