28Jan/10Off
Auto-Translation FTW
Hehe... our code now has leet speak!
use strict;
use warnings;
use Acme::LeetSpeak;
open INFILE, "messages.properties" or die $!;
open OUTFILE, ">messages_leet.properties" or die $!;
while() {
my $line = $_;
my ($key, $eng_val) = split /=/, $line;
my $leet_val = leet($eng_val);
print OUTFILE $key . "=" . $leet_val;
}
close INFILE;
close OUTFILE;