#! /usr/local/bin/perl

while (<>) {
	if (/var='(\S+)'/) {print "$1=\n"}
	}