Сравнение скорости AutoIt VS Perl

use Benchmark;

open (OU, ">test.txt");
$t0 = new Benchmark;
for (1 .. 1000000){
	print OU "Some text 1234567890\n"
}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";
<>

# алфавит
$r = "[йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ]";
$l = "[qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM]";
$br = "[ЙЦУКЕНГШЩЗХЫВАПРОЛДЖЭЯЧСМИТЬБЮ]";
$lr = "[йцукенгшщзхъфывапролджэячсмитьбю]";

# подсчет ошибок и вывод в LOG
sub e{
	$e++;
	$err{$_[0]}=$_;
	$errnum{$_[0]}++;
	print "x";
	print LOG "$top, $_[0]:\n	$_\n\n";
	next}
	
# основой скрипт
open(LOG, ">$0.log");
while(<*.nsr>){
	open(IN,"$_");

	while(<IN>){

		e "спаренные кавычки" if /""/;
		e "три апострофа" if /'''/; 
		e "смесь апострофов и кавычек "if /"'|'"/;
		e "нетипичный апостроф" if /[^'\d]'[^s]/ && !/О'|Д'|точк|TCO/;
		e "нетипичная кавычка" if /\d["]\d/;
		e "сдвоенные знаки препинания" if /,[,.]/ && !/,\.{3}/;
		e "запятая не отделена пробелом" if /$r\s*,+$r/ && !/│/;
		e "знак препинания отделен от слова" if /^$r.+\s[,.:;!?](?!\.\.)/ && !/__|\d\s+:\s+\d/ && !/:/;
		e "нет пробела после номера пункта (или неверно распознана цифра)" if /^\s*\d+\.$r/;
		e "цифровой ряд не разделен пробелами" if /\d+,\d+,\d/;
		e "в ряде цифр пропущена запятая" if /\d\s+\d/ && !/|\d[,-:\.]\d|-го/ && /\d+,\s+\d+,/;
		e "строка содержит повторяющиеся слова" if /\s($r+)\s{1,7}\1\s/g && /$r{5,}/ && !/\s{9}/;
		e "диапазон дат записан через дефис" if /\D\d{4}-\d{4}\D/ && !/ГОСТ|│/;
		e "год не отделен от цифры" if /\d{4}г./ && !/│/;
		e "не проставлена ссылка на сайт" if /\s(http:\/\/)?www\./ && /$r{2,} /&& !/сайт/;
		e "ошибка в диапазоне чисел" if /\d\s+-\d|\d-\s+\d/ && !/"/;
		e "склеенный номер" if /\sN\d+/;
		e "неверная запись суммы" if /(тыс|млн|млрд)\.р/ && !/│/;;
		e "ошибка в сокращениях" if !/│/ && /(г|ул|р-н)\.$br$lr|(^| )(п|ст|гл)\.(\d)/; 
		e "инициалы написаны слитно" if !/__|│|подпись/ && /$br\.$br\.$br$lr+/;
		e "ошибка форматирования в таблице" if /│\s*[,;:\.]/ & !/\.\.\./;

}close IN}

# вывод статистики ошибок
if ($e){

	print LOG $/."СТАТИСТИКА ОШИБОК:$/"."="x18 .$/.$/;
	while (($key, $value) = each %errnum) {print LOG "$key - $value шт.\n"}	
	print LOG "\n\nИТОГО - $e шт."}
else {print LOG "ошибок не найдено"}
close LOG