open(FILE , ");
open(FILE2 , ">out.txt");

foreach (@mass)
{
	if ($_=~/^.*@.*\..{2,4};.*$/)
	{
		print FILE2 $_."\n";
	}
}
close FILE2;close FILE;