^kerosinka\.(ru|biz|info)$

Начало программы:

procedure Tshash.FormPaint(Sender: TObject);
begin
if hb=1 then
label1.caption:='Ход белых' else label1.caption:='Ход черных';
label2.caption:='Белые:'+InttoStr(sb);
label3.caption:='Черные:'+InttoStr(sc);
if connected=1 then button1.caption:='Рассоединиться' else button1.caption:='Соединиться';

готовая программа на перле. Внутри не забудьте подставить свое имя файла. Выводит словарь на консоль.