perl -s 
-e"BEGIN{@ARGV=glob@ARGV}" 
-nle"/\[$TAG\]/../\[\/$TAG\]/&& print qq[$ARGV($.):$_]" 
-TAG=tath_tag ./*/dir/*.ext