while($text =~ m/((ATOM)(\s{1,})(\d{1,})(\s{1,})(\w+)(\s{1,})[A-Z]{1,}(\s{1,})[A-Z]{1,}(\s{1,})(\d{1,})(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\d+.\d+)(\s+)([A-Z]{1}))/gi)
{

	
	print MYFILE "$1";
	print MYFILE "\n";

}

##</code><code>##

while($text =~ m/((ATOM)(\s{1,})(\d{1,})(\s{1,})(\w+)(\s{1,})[A-Z]{1,}(\s{1,})[A-Z]{1,}(\s{1,})(\d{1,})(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\d+.\d+)(\s+)([A-Z]{1}))/gi)
{

	
	print MYFILE "$1";
	print MYFILE "\n";

}