#! /bin/bash
rpm -Vva 2>/dev/null|perl -ne 'BEGIN{use Cwd qw(realpath);}print if s/^[.]{7}[.T][.]  [^g] //;'