perl -e "map   {print qq!\n$_\n\n!;open F,$_; while(<F>) {print qq!$.:$_! if $_ =~/\[$ARGV[0]\]/  .. /\[\/$ARGV[0]\]/}close F;    }   glob ($ARGV[1])"  tath_tag ./*/dir/*.ext