my $s = qq|%%Atom Coords
	-1.13 12.16 6.15
	%%End Frame|;

	$s =~ s/^%%Atom Coords\s*(.*)\s*%%End Frame$/$1/;   

	print $s;