1#!/usr/bin/perl -w
2
3while (<>) {
4    print "$1\n" if /^\s*\"(.+)\", referenced from:$/;
5}
6