#!/usr/bin/perl 

use MIME::Base64;

my $data = "

102

bonuswm.ru
Private person
ns0.s0t.ru.
ns1.s0t.ru.
 
+7 9500036527 
+7 8124270200

REGTIME-REG-RIPN12-01-2007
12-01-2012
 

103

bonuswmr.ru
Private Person
reg.ru 
+79278820270

REGRU-REG-RIPN15-01-2009
15-01-2012 

";

my @emeils = $data =~/email\.php\?e=(.+?)'/g;

open(OUT, '> out.txt');

foreach $encoded (@emeils)

     {

	$decoded = decode_base64($encoded);
	print OUT "$decoded\n";

     }

close(OUT);