gistfile1.PL

# 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;