for f in * ; do perl -ne 'print "$ARGV:$.:$_" if /\t/' $f; done