#!/usr/bin/perl

$a="";
$p=0;
while (<>) {
	if (/SCF Done/) { $a=$_; }
	if (/Stationary point/) { print $a; }
#	if (/Standard orientation/) { $p=1; }
#	if (/Rotational constants/) { $p=0; }
#        if ($p) { print; }
}

