#!/lusr/bin/perl

use warnings;
use strict;

print "File to make l337?\n!!!";
my $file=<STDIN>;
open (FILE, "<$file") || die "Couldn't find the file, sorry: $!\n";
open (LEET, ">leeted.txt") || die "Couldn't create file: $!";
while (<FILE>) {
	s/e/3/ig;
	s/t/7/ig;
	s/h/|-|/ig;
	s/i/1/ig;
	s/l/1/ig;
	s/a/4/ig;
	s/s/5/ig;
	s/o/0/ig;
	print LEET;
}

close FILE;
close LEET;