#! /usr/bin/perl
use strict;
use warnings;

my $text = 'From: aaa@bb.netxxxMessage-Id: xxx<200902131530.n1DFUZ5l001303@aaa.bb.net>xxxTo: xxx@yyy.netxxxSubject: Size atanan xxx numarali ticket hakkindaxxxContent-Type: text/plain; charset=ISO-8859-9xxxContent-Transfer-Encoding: 7bit';

if ( $text =~ /(?=To:\s)(.+)(?=[^x]{3})/ ) {
	$text =~ /.+To:\s(.*?)(?=xxxSubject)/;
	my $to_email = $1;
	print $to_email . "\n";
} else {
	print "no match\n";
}