#!/usr/bin/perl -n
use File::Basename;
use feature 'say';

say basename($1.$2) if /(?:file|redefined in)\s+(?:'([^']+)'|(\S+))/; # extract path, get basename