# vim:ft=perl
use strict;
use warnings;
use Acme::LeetSpeak;

open INFILE, "messages.properties" or die $!;
open OUTFILE, ">messages_leet.properties" or die $!;

while(<INFILE>) {
    my $line = $_;
    my ($key, $eng_val) = split /=/, $line;
    my $leet_val = leet($eng_val);
    print OUTFILE $key . "=" . $leet_val;
}
close INFILE;
close OUTFILE;