#!/usr/bin/perl

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

