#!/usr/bin/perl
while(<>) {
    while (s/= "(.*?)"//) {
	next if $1 eq "";
	print "$1\n";
    }
}