#!/usr/local/bin/perl
#
# Read spice output, passing only .print output to stdout
# Adapted from an awk script by jp.
#

$inprint = 0;
while($_ = <>) {
	if($_ =~ /^x$/) {
		$inprint = 1;
	} elsif($_ =~ /^y$/) {
		$inprint = 0;
	} elsif($inprint) {
		print $_;
	}
}
