perl -nle 'if(/([\$*])(([\w\:'\'']*)\bVERSION)\b.*\=/){ eval $_; print "$ARGV:\n$@$_\n\$$2 = $$2\n";close ARGV; undef $VERSION}' a b c d