#!/usr/bin/perl -w
use strict;

open my $h,'<','log.txt' or die $!;
{
    local $/;
    my $s = { map { m[([a-z0-9_-]+\@[a-z.]+)\s*(?:pass=|)(?!uid:|http:|name:)(.+)]gi } <$h> };
    close $h;   
    print map{ "$_:$$s{$_}\n" } sort keys %$s ;
}

$ cat log.txt
              email=mail1@gmail.com
              pass=pass1
              ...

UID:...
Name: http://vkontakte.ru/index.php
Values: 
mail2@gmail.com
pass2

UID:...
Name: http://vkontakte.ru/
Values: 
mail3@gmail.com

$ perl p.pl
mail1@gmail.com:pass1
mail2@gmail.com:pass2
mail3@gmail.com: